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v04-001 —*8 IX Weber 66-SEP-1984 

Add check in START OUNT VER which causes SS$_VOLINV to be 
returned when a mount verification request is presented for a 
device which does not have UCBSV_VALID set. Mount 
verification guarantees te to have ocasy VALID set, even for the 
first IO$_PACKACK. Therefore, when such an event occurs, 
mount aeeitisantan needs to be informed. 


v03-255 ROW0411 Ralph 21-AUG-1984 
amt register usege sy 86360 to reference UCB from R3 not 
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v03-254 seuss Ralph Weber 6-AUG-1984 

Setup * of ucBsV. PUTRAN to guarantee that mount 
verification always runs for all disks after a VAXcluster 
state transition. 


v03-253 ROW0400 Ralph 0. Weber 21-JUL-1984 
Eliminate vetting at Y te access to the 1/0 database mutex 
before calling DUTU FATLOVER UCB. That routine will now wait 
for the mutex in its own York” thread. This also Rens 3 | 
stalling requests due to lack of ad | to the mutex. nce 
such requests can no longer stall $s no Longer possible to 
get a deadlock when, for example, a process hol 
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must perform a page fault read in order to complete and 
release the mutex. 


VOS~252 & 21-JUL-1984 
euo -id to device jecz —97— * ble Wir for the 
482" RC26, RCF26, CDRS » RX31, » and RXx1 


v03-251 ROW0398 Ralph 0. Weber 21-JUL-1984 
Setup use of class ori er vrite=teck bit in ueey DEVSTS. 
Also eliminate alteration and use of DEVSV_SWL bit in 
UCBSL_DEVCHAR. That bit is controlled by the file system. 


v03-250 ROW0395 Ralph 0. Weber 21=JUL-1984 
Make qrenepe which setup — MSCP command timeout 
algorithm before calls to DUTUSPOLL FOR, UNITS. Also setup 
use of DAP CDRP ra DUTUSPOLL_FOR_UNTTS. 


V03-249 ROW0394 21-JUL-1984 
Remove . STORE “setting > wtih Queue present bit in the ORB. 
This should improve performance on devices which do not really 
have an ACL queue in their device protection ORB. 
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V03-248 ROW0389 Ralph 0. Weber 9=JUL-1984 
Cause both mount verification requests and requests for 
devices which are not ‘volume valid’ t @ tort uring broken 


connection cleanup after their —959 ave been released. 
This insures the requests from SMOUNT oft fail 

connection to the remote MSCP server fails during processing 
of the SMOUNT command. 


v03-247 ROW0388 Ralph 0. Weber 8-JUL-1984 
Remove wait counter "edlustnent for possibly failed-over disk 
from DULEND_MNTVER. Because of some race conditions, this 
adjustment must be done in DUTUSFAILOVER UCB. 


V03-246 ROW0387 A. Weber 7-JUL-1984 
Setup use of pUTUSR CONN, LOOKUP and DUTUSDRAIN. CDDB_CDRPQ. 


v03-245 ROW0381 Ralph 0. Weber 22-JUN-1984 
Close a small — in volume not software enapiee plume back 
so that if there is any hope of getting an invalid volume 
requests will wait until the volume returns. Also add RDS 
media-id conversion tabl - 


V03-244 * 377 Ralph 0. Weber 7-J penne 
enge order of bit’t test on DEVSV 2P and sail 
buTU DEALLOC ALL in PACKACK OFFLINE so that Ro’ Cthe return 
status) is not corrupted when the bit test branch is taken. 


forcect branch destination in DU_REVALIDATE_DISKS to eliminate 
nfinite loop when por torn ing out-of-quorum processing for a 
non-multihost single pathed device. 


v03-243 ROW0371 Ralph 0. Weber 29-MAY~1984 
Put a band-aid on erob ems related to the need 2? held the 1/0 
database eutes during a failover. The band-aid 
eliminate waiting when there is not alternate path to which 
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one can failover. 


V03=242 ROW0369 Ralph 0. Weber 22-MAY-1984 
Change DUSRE_SYNCH to not do MRESET/MSTART to MSCP servers and 
then weit for song thing to happen. Quite possibly, nothing 
ever will happen in such cases. Proceeding directly to the 
DISCONNECT is the correct action. 


v03-241 ROW0365 Ralph 0. Weber 17=MAY=-1984 
Correct method for counting four passes through START_PACKACK 
when failover operations are attempted. 


V03-240 ROW0361 Ralph 0. Weber 5-MAY-1984 
etup use of new class driver common DAP processing in 
DUTUSDODAP. The new routine is designed to eliminate multiple 
concurrent DAP threads which are known to crash systems. 


v03-239 ROW0360 Ralph 0. Weber 4-MAY-1984 
Cause 1/0 requests to stall while a IO0$_PACKACK is in progress 
by oyap ing RWAITCNT, This corrects system crashes during 
booting where a paging 1/0 request gets SS$_VOLINV because the 
packack for SYSINITs mounting of the system disk is in 
progress. 


Alter DU_REVALIDATE_DISKS for use in the stalling of all disk 
/0 activity whenever quorum is lost. Change the routine 
tself to correctly handle —** entered for quorum lost 

processing. Cause the routine to be pointed to as the 

unsolicited interrupt routine. Until a new DOT entry can be | 

properly defined, this will allow the routine to be located by 
the connection manager quorum lost algorithm. 


v03-238 ROWO359 Ralph 0. Weber 4-MAY-1984 
Correct the SDISPATCH after PACKACK_OFFLINE to preserve RO 
which contains SS$_MEDOFL, a possible completion status. 


v03-237 ROW0354 Bolen 0. Weber 30-APR-1984 
Add setting for DEVSM_NNM in DEVCHAR2 to indicate that tape 
class driver devices use NODENAMESDDCN device names. 


h 0. Weber 24-APR-1984 
gbrocecs tag in PACKACK so that spun-down 
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v03-236 ROW0351 Ralp 
Correct MSCP offline 
drives return SS$_ME 


v03-235 ROW0350 Ralph 0. Weber 23-APR-1984 
Correct more preatens causing multiple trips shroug> 
EAM, with the attendent bugche 
D ghCESTRA upon entry to DUSCONNECT_ERR. Second, protect 
the Sscs UNSTALLUC Loop in END_SINGLE_STREAM from possible 
connection failures during execution of the loop. 


v03-234 LMP0237 L. Mark Pilant, 19-Apr-1984 11:23 
Also initialize the size and type fields of the template ORB. 


v03-233 LMPO235 L. Mark Pilant, 17-Apr-1984 13:54 
Add a seaetate ORB to be hooked up to the template UCB when 
a new uni s initialized. 
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Change replace logic so that a replace is not even attempted 
when the DEVSV_SWL bit is set in UCBSL_DEVCHAR. 


v03-251 ROW0339 Ralph 0. Weber 8-APR-1984 
Setup use of ——— invalid command processing routines 
(macros). This replaces the old ‘form the original MSCP 
command packet by ang. algorithm with @ “repeat the code 
which formed the original ASCP command’ algorithm. The cost 
is a single, hardly ever taken BLBS in the mainline read/write 
code path. The savings are elimination of having to duplicate 
command packet setup changes in the invalid command case, 
hundreds of bytes of code, and a not inconsequential amount of 
static storage. 


v03-230 ROW0338 Polen 0. Weber 7-APR-1984 
Setup use of DO_ACTION macro to replace INTERPRET_ACTION TABLE. 
Start using IF_ASCP where only success or failure of an ASCP 
command is being tested. Setup use of ACTION_ENTRY END to end 
action tables. Remove action table interpretation routines; 
they are now in DUTUSUBS. 


v03-229 ROW0335 Ralph 0. Weber 4-APR-1984 
Perform numerous class driver fixups and cleanups: 
> Correct pests toging of DPT_STORE REINIT and add note that 
reinit is not significant Because driver is not reloadable. 
> Remove unitinit routine which was causing crashes after 
power failures and rep ece it with a pointer to the new 
reus 700 in DUTUSUBS which does not have the power failure 
oroblems. 
Remove usage of allocation class value in the SCS connect 
accept message. All MSCP servers now supply hat 
aroraes ven n the Set Controller Characteristics command 
end packet. 
> Do not queve stalled 1/0 when UCBSV_VALID is clear and the 
stalled’ request is not a physical function. 
> Eliminate call to DUSONLINE_COMPLETE whenever the ONLINE 
command reports that the device was already online when the 
command was issued. 
> Remove unnecessary register saves and restores around calls 
to DUSUNLOCK_HIRT. 
Add processing for IOSM_INHRETRY and IOSM_EXPRESS. Also 
rework r peeur ite modi fer test ing so that only one test for 
all possible modifers is in-line for the read/write path. 
f any modifer is set, an out-of-Line code segment 
ndiv *** tests and processes the modifiers. 
Add the multi-host progress counter handling roposed by the 
HSC implementors to DUSTMR. This algorithm simplifies 
handling of the case where the MSCP server is busy on an 
older command from another host. 


v03-228 ROW0331 Ralph 0. Weber 30-MAR-1984 
Setup use of common cance’ support in DUTUSUBS. Also make 
functions which use multiple MSCP commands gheck for cancel 
after each MSCP command and perform cancel 


v03-232 ROW0345 opie” 0. Weber 11-APR=-1984 
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v03-227 aque 0329 : Ra ph ¢ Weber ‘ gperet ional * 
up o reven n r * non-operational path as 

attenpted 1 . $0000" ° LANE ug328. — net work. 
Replace it y A cost =. DU_END 33— Oven h determine 
whether or not @ pass through RESTART NEXT. (SRP s in the 


cards for the current ¢¢ connect ten (at Ehe time of mount 
verification completion 


¥03-226 ROW0328 Ralph :- Weber 21-MAR-1984 
Correct bugs in ROW031 h caused it to incorrectly miss 
the end of the CDDB UCB = n. 


v03-225 ROW0323 Ralph 0. Weber 12-MAR-1984 
Rework MSCP offline bendt tae in PACKACK so that both ‘‘unknown’’ 
and ‘‘inoperative’’ subcodes cause failover attempts. 


v03-224 ROW0319 Ralph 0. Weber 28-F EB-1984 
Attempt to eliminate failover to non-operational ay by 
makin 4 By CDDBSV_RECONNECT the Last ip RN > tn 
ND_SINGL Also add sanity check that CD Bsv. "RECONNECT 
s Set he ic is cleared. 


v03-223 ROW0306 Ralph 0. Weber 13-F EB-1984 
Change end mount veriftestion processing so that RWAITCNT 
reduction occurs whether or not mount verification succeeds. 
This averts hangs produced by mount verification aborting 
after a failover occurs. 


vO03-222 ROWO302 ateh @ 10-F EB-1984 
Add clearing of ay Vv Siu oy 10s AVAILABLE and 10$_UNLOAD 
function processing. s countéracts the effects of setting 
the bit in 10$_PAC ACK processing. 


v03-221 ROW0301 38 0. Weber vee treet 
Remove clearing, COD $V “NOCONN b t from MAKE_CONNECTION, this 
bit cannot be cleared Until A UCBs chained to the CDOB have 
had their connection dependent fields updated to retsect * 
new connection. In the re-connect code fol soulng the cal 
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MAKE. ae tent move the loop to test RWAITCNT each 

8 ned UCB to 6 efore the call to DUTUSPOLL_FOR_UNITS and add 

§ nitialization of the pconn ction dependent OcB J elds to the 
aperey ons per torace » tot s loop. After that oop. insert 

7 earing the CDODBSV_NOCONN bit followed by the =o to 

4 DUTUSPOLL_FOR COM TSs 

74 These changes guarantee: 1. that mount vert ticotien thread 

75 will not af tenpe MSCP requests until AFTER the UCB connection 

7 Copendege lds have be altered to reflect the current 

7 cpnnect ten . that the RWAITCNT test is made at a —*8 when 

f yhere Ss not active MSCP traffic on the connection 


paper sent because the test cannot account for RWA TENT being 
bumped * © threads wa ting on 4 Fs resources), 5. that both 
mount ver f cation and poll-for-units thread can proceed 
concurrently. 


Some comments regarding the testing of for an oupty queue of 
outstanding requests have been removed. The test itself was 


Voe-OOT — sanhen eee "So$Ep=1986 99:92:06 YORIVER.SReSDUDRIvER.man;2 "88° fy 


removed in ROW0279 because mount verification threads can very 
= have outstanding requests at the time the test used to be 


v03-220 ROwW0300 Ralph 0. Weber 
Enhance DU_END niveR to unbump RWAITCNT if the 
UCBSV_MSCP Wal ToRP lag is set. This handles the case where 
mount verification has successfully failed a drive from a 
crashed controller to a working controller. 


v03-219 ROW0298 Relap 0. Weber 9-F EB-1984 
Setup use of CORPSW_ yet to hold the size of an_incomming 
sequenced message. This replaces yse of CORPSL_IOST2+2 whose 
use causes valuable input information to be overwritten. 


V03-218 ROW0296 Ralph 0. Weber ip he 
Setus use of CDDBSV_RSTRTWAIT status bit in end-of-mount- 
verification processing to tell whether or not to call 
RESTART _NEXT_CORP. 


v03=217 ROW0295 Balen 0. Weber 6-F EB-1984 
Set use of DUTUSCHECK_RWAITCNT, a routine which validates 
UCBSW_RWAITCNT and bug checks if it is wrong. 


9-F EB-1984 
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V03-216 ROWO294 Polen 0. Weber 5-F EB-1984 
Correct RECORD_STCON setup of allocation class information in 
the DDBs to use DDBSL_CONLINK so that only those DDBs on this 


connection are effected. 


v03-215 ROW0293 Ralph 0. Weber 4-F EB-1984 

Cleanup references to INIT_MSG_BUF and RECYCLE_ALL and remove 
them. Restructure START_PACKACK so that the normal path is 
more Linear. In START_PACKACK, remove the notes about over- 
riding a bad RCT as this can be done by write-locking the 
device and add a tests which rejects attempts to mount 576 
byte/sector disks. Setup return of SSS$_SHACHASTA for shadow 
set state change on all commands. 


v03-214 ROW0287 Ralph 0. Weber 22-JAN~1984 
Make all remaining speed enhancements to mainline READ/WRITE 
path. Setup support for IOSM_FORCERR modifier on WRITEs. 


v03-213 ROW0286 Ralph 0. Weber 22-JAN-1984 
Cleanup all references to routines now moved to DUTUSUBS. Fix 
usage of CDRPSV_ERLOGIP to be CDRPSV_ERLIP. 


v03-212 ROW0285 Rolph 0. Weber 21-JAN-1984 
Move all host initiated replacement code, etc. to a seperate 
module, DUHIRT. 


v03-211 ROW0283 Ralph 0. Weber 16-JAN-1984 
Take all reasonable steps to speed-up the mainline READ/WRITE 
ath through the driver. Eliminate taken branches and slow 
nstructions. Make 1/0 success case avoid call to 
INTERPRET_ACTION_TABLE. 


v03-210 ROW0279 Ralph 0. Weber 14-JAN-1984 
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v03-209 


v03-208 R 


v03-207 


v03-206 


v03-205 


v03-204 


v03-203 


16-SEP=1 5: X/VMS Macro V04-00 Page 
ets 7 99: 2 86 tS DRIVER. SR CIDUDRIVER.MAR; 2 ’ 
Change mech 24 be veoter rns units to grit tate after 
connection o ire. use © BRING _UNIT. ron 
mount veri feat on. ncludes a compl ete, reworking of 

t ver 3* on processing for the too. Alsce 
~— iff : ing f h 


ow all unit failover to occur on to — ye Ke 
alias PACKACK age to the driver 


ROWO272 h 0. Web ‘ 
Remove block which. Prevents ssuing DAP r erin Ae from DUSTMR. 
* 7r _DAP_TH to only send —*5*8 Access Paths 
coneends for” those UeBe which are UCBSV_VALID. MSCP servers 
L ignore DAP commands for units which. —. not MSCP online, 
so why should we send them. Add block which prevents ogping 
errors for DAP ocsens ton messages to ACCESS_PATH_ATIN. 
allows the code wh logs DAP attention messages to remain 
and to be eae back into existance should it be needed. 


31-DEC-1983 


py0e70 oie 8 29-DEC-1983 

Etining pete payers’ END_MSG “eur * ropes "ene O38 ie to it 
Parse DRIVER, Change ON to use the 

ted y of HST IME 1 ARRAY ECOntro ler ge a the controller 
timeout value as One final host tiaedut “os for the MSCP Set 
Controller Characteristics comman use of VMS SC 
RECYCL_RSPID and FIND RSP ID’ ROTE (except *8 DUSIDR where speed 

s desired). Make all permanent/DAP CDRP to CDDB conversions 
me PERMCDRP_ TO_CDDB. 


ROW0269 cer in Weber 29-DEC-1983 
Change DU_ CONTROLLE INIT to use DUTUSCREATES et DDB. 
ROW0267 Ralph 0. Weber 28-DEC-1983 


Add 10$M_SHADOW nod fier for 10s. PACKACK. This is the PACKACK 
support for volume shadowing. 


ROW0262 Ralph 0. Weber 24 "spat } b> 
Move all UCB OE wg and creation to DUTUSUBS. “30 
ATTN —** processing in DUSIOR. Implement usage. 9— A. TUDEF, 
all device indepen ent UCB fields, and the [0C$ Gt dU CD0B 
Listhead, Replace al TORE macros which init UCB fields 
with INIT_UCB oe Ky NIT UCB in tializes both the DPT and 
ze teaplite U UCB. Its use @liminates possible mismatch of the 
+ ye sources as well as some setup code in the controller 
— tialization routine. Make driver not reloadable. Change 
POLL_FOR_UNITS to DUTUSPOLL_FOR_UNITS. 


ROWO _ Rolph -1983 

Rove 8 UMP_COMMAND and DUMPS ENOME SAGE to one SUBS. Change 

DUSEND to DUTUSEND so that” linking with * ple modules does 

not involve a peek. Do some common path cleanup to speed 

passage through common code paths. Change subrou 9* 
ALL_SEND_MSG ‘Bur to SEND yer. MSG macro. Move INIT VTPLATE UCB 
to DOTULIB (macro Library). 


cheng bert L. Rappaport 16-NOV-1983 

an ns “puiLding - transfer commands MSCP packet se Lom 
PQDRIVER can alter the mapping information dur me 

request and have the altered information appear in thee MSCP 
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v03-202 


v03-201 


v03-200 R 


v03-199 


v03-198 


v03-197 


=SEP- 7:55:54 - 
"Pr 3eer1obe §9itaioe EDAiveR. cae dousmiveR.maR;2 
achet. Also fix a credit when tnval té media addresses or 
a NOP command 


fer Conese are encountered. In sure cases, 
must be sent to release the already allocated resources. 


now0ess Ralph 0. Weber 12-NOV-1983 
Change device dependent ucs definition to work with globally 
oe d mSCP extension to the UCB. This nstons ol a * none 
us? 9 all the UCB fields in he new extens simply 
m ee By azerect ons which will prevent this nodule” 
3443 n resence of the new UCB definitions. 
UCBSL_D _MEDIATY field, whi = wee changed to UBS “MEDIA. ID 
ages * has also been eliminated. 


ROWO24 helen 0 Weber 8-NOV-1983 

Renoye ANN T from INIT_CONNDEP_UCB and chan 
CORD. STATUS to * qö SM_RCT if and only if the number 

- RCT"copiés is not zero. This change causes the class 

driver to property record che presence or absence of an RCT. 

4: may break applications which were incorrectl yotng 
EVSM_RCT as a signal that this was/is a MSCP disk. 


Ralph 0. Weber 2-NOV-1983 
forcec t jovertedrsense beanches in PACKACK_OFFLINE path added 
to switch paths when a IO$_PACKACK fails and there 
is mete to believe the alternate path will work. 


ROW0245 Ralph 0. Weber 17-OCT-1983 
Correct couple of outstanding | Suge: 
n 


= Change D SIDR to store inc a message size in 
CORPSL_10Si2+2. This prey ides he nesse e size to any code 
ceases it. In particular, the INVALID_STS and 
ECO IT_STAT 4 Vises mentioned ore use this feature. 

- Enhancé R CORD UNIT aSTA TUS to bugcheck if it produces zero 
—8 ometry informat 

° INVALID_STS ke “property lace the size of the incomming 
MSCP message in R1 before calling ERLSLOG_DMSCP. 


—* 42 2 Weber 15-OCT-1983 

eogeu unit attention Boon, # in DUSIDR to skip alterin 
oaug WAITBMP and UCBSW_RWAI iy wren the CDDBSM_IN NITIN or 
CD06 SA RECONNECT s set in CDDBSW_STATUS. This prevents 
altering the wait coyng is such a way fhat the wait count 
tests in controller init and reconnection processing fail. 
Therefore, a spurous disk class driver bugcheck is SLiminated. 


R Ralph 0. Weber 1-0CT-1983 
in bugs , 


0 —*8* anew D dpa is created, either jn CHAIN yce 
CHAIN_ DUAL PORT — force the initial ocöet nhs “both primary 
and sécon or to be ero (no — exists yet 

0 Change SACRA K function to fry sec ndar path it primary 
path ONLINE command fails w ‘unit unknown or online to 
another control tec 

o Fix PACKACK f ction to set DEVSM_SWL correctly whether or 

not host initiated bad block replacement is in effect. 

Correct a couple of typographical errors in comments. 


} 


dy 
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served unit offline to make is unusable. At this S pert we 
have no plans to allow it to be used, so make the 
reflect that fact. 

o Correct bad stack offset in CHAIN_DUALPORT_UCB. Also correct 
tarting DDB 2*. so that a newly creatéd DDB is Linked 
nto oe ArT tonkpee 

0 Sour ise T_CONNDEP vᷣcs to use only the UCB address input 

ane t 2 fil Lif all fi€lds based upon the primary path to the 


0 —— tall 0 init CONNDEP_UCB for ovethaple attention 
messages (in DUSIBR) to after call to CHAIN des so that UCB 
is —— initialized for INIT_CONNDEP_U 
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D000 457 v03-196 ROW0229 fte® SEP-1983 
0000 4 Make several ganar "which h hel SHOW DEVICE Tesla 
0000 4 information 43 dyal ofet? ges 
0000 4 o Jub * an 2P t in UCBSL_DEVCHAR2 of all quaty pathed 
144 in hs Sllows dual pathéd disks to be quic 
00¢ 4 se : Loca —** CP disk shee be a MSCP 3 set the 
D000 4 DEVSA. COP bit n UCBSL_D me of the for the MSCP 
0000 8465 path. This al ows ute erent iat on between the. local-path 
D000 4 and the MSCP=path 
D000 4 o When a local, non-Ase p “disk else he has a MSCP path, fillin 
D000 4 yCBat *oP_DDB’ in both UCBs is allows correct chaining 
b00¢ 4 back fo the system block in ali cases. 
000047 v03-195 Row0222 Ral 12-SEP-1983 
00047 o Change FDT to use PEXESLELDSKVAL 1D for. 108, PACKACK, 
0 47 10$_ VAILAGLE and 10$_ UNLOAD processes ng. 
4! of 0 Rove 108 —— entry higher in FDT to give it faster 
47 0 —— bese of device Cepentont UCB to be UCBSK_LCL_DISK. 
47 o Move the testi 9 * ane setup of a local-dual-path UCB from 
47 INIT_UCB to CHAIN_UCB, wore we have a vaild DUDRIVER- 
47 eho" DDB 7 seat £ egatn 
4 o Fix LOOKUP_LOCAL ° —3 “this DDB. 
¢ o If a loca arta F 4 for a MSCP served unit, mark the MSCP 
by 
4 
& 
4 
4 
% 
4 
4 
49 
49 
49 
49 


495 v03-194 ROWO2 Ralph ToSER- 1983 
‘ 49 Make 4 coup J of fixes uy RSTEC. Correct gedie- id 
0 49 information in MEDIA_ —* to — t RC25 and RCF25. Fix 


‘know’ —— Rfett (this 


2s 
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v03-193 ime Molen Weber MS Bere ido 
several bugs n Pookur Loe AL.UCB. Add call 
e 


. Change allocation c 


allocation class. Prepare to set e'eBsl AAR BCNT, the maximum 
single transfer byte count, A... l 
set MAXBCNT now because it break : “ROUNt A a 
branch which disables DAP commands but which can “easily be 
patched out once they are working. 


v03-192 Row0e oe Ralph 0. Weber AUG-1983 
Fix I0$_DSE to hove” an FDOT routine unich’ es P2 into 
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BCPA BENT and copies P3 into IRPSL_MEDIA. (This change ENH 
y- 


Fix Literal reference to EMBSC_INVSTS im INVALID_STS. (This 
change ENH and V3.5 BUG.) 


v03-191 ROW0205 Ralph 0. Weber 8-AUG-1983 
Add device Joi hover support. Currently, this support is 
Limited to $b 1 devices. This restriction will eventually 
a | fe be lifted. However, work must be done to mount 
verification before the restriction can be Lifted. 


Primary modifications involved in adding failover support are 
ogee ton of a FAILOVER_DELTA driver parameter to spec tty the 
me we wait after a connection fails before attempting to do 
ailover and addition of a call to DUTUSFAILOVER in 
MAKE CONNECTION. It was also necessary to prevent 
CBSC_DU_CDDB from getting over written with the secondar 
008 address and to make CDDBSK_PERMCDRP_OFF a global symbol 
giv ng the offset from the CDDB base to the permanent CDRP 
ase. 


2292292205 
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v03-190 RLRDSE2 Robert L. Bopperer’ 28-Jul-1982 
orrect minor bugs in TRANSFER_INVALID_ COMMAND that 
ncorrectly ——— the opcode for TO$_DSE and 
also incorrectly returned a Success status code. 

v03-189 RLRDSE1 Robert L. Rappaport 26-Jul-1983 
Add 10$_DSE to FDT tables. 

V03-188 RLRODDBCNT Robert L. Rappaport 22-Jul-1983 


Test for odd bent in Host Memory Access Errors and 
return SS$_IVBUFLEN in that case. 


V03-187 RLRMEDIAID Robert L. Reege ort 15-Jul-1983 
Set UCBSL_MEDIA_ID in POLL_FOR_UNITS from data in 
GET UNIT STATUS End Message. 


V03-186 RLRCREDITBUG Robert L. Rappaport 12-Jul-1983 
Correct bug that allowed credits to go to zero. Bug 
was that we allocated a message buffer (and therefore 
a credit) in STARTIO before testing the VOL_VALID bit. 
We then sinely Goat located the buffer without 
disposing of the credit. 


v03-185 RLRINVSTS Robert L. Rappaport Jryul-1985 
eneral set of ghen es to improve reliability. These 
nclude tolerating invalid MSCP status returns an 
HOST Resery Buffer errors. Also incorporate loggin 
Lid ATTN messages, and RE-SYNCH after invali 
status returns. 


v03-184 RLRDUALP1 Reber? L. Rappaport 23-Jun-1983 
F rst set of chenges ntended to support dual ported 
devices. Here we introduce the DUS_CDDB_CHAIN, 
subrout ines SCAN_UCB_ CHAIN, and CHAIN_DUALPORT_UCB, 
and introduce thé DAPCDRP, (Determine Access Path). 
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if , v03-183 puscneetre Robert L. Rep pevert togunnt 2 
OC ? E bye giscovered by mi Re Masters in CX. Fix 
X 7 CDRP, we must have R3=>UCB before calling 
dg , INIT. nse BOF. 
ii ? v03-182 R ooe! Robert L. Rappaport 21-Jun-1983 
D0 7 Addie onal ghange to previous update (RLRODB) $0 
4! 7 that the OrigUCB (Boot UCB) remains Linked on its 

' 


DDB so as to enable it to be found by the ASSIGN 
system service. 


V03-181 RLRRWAITBUG Robert L. Rappaport 17-Jun-1983 
Correct bug in Cancel_10 Routine that decremented 
RWAITCNT twice when we canceled CDRP that was 
current * owner 

v03-180 RLR LCL Se Robert L. Rappaport 17-Jun-1983 

Cheek or valid protocol type in Connect Data Message. 


OONOA 


v03-179 RLRALCLS1 Robert L. Rappaport 3-Jun-1983 
Correct typo in previous update. 
v03-178 BL RAL OC) Robert L. Rappaport 26-May-1983 


sot COOetL. ALLOCLS and bees -ALLOCLS from Connect 


v03-177 mL Auces? Robert L. Rappaport 25 
In ASSUME statement that tests size of UCB to that 
of size of boot UCB (in DEVICEDAT. MAR) increase Limit 
to reflect growing of boot UCB in DEVICEDAT.MA 


V03-176 RLRWRCHK Robert L. zzee gore 19-May-1983 
Correct error in handlin TECHECK requests that 
only allowed 512 BCNT an og Meeks 3. within RCT. 


v03-175 TCMO001 Trudy C. Matthews 4-May-1983 
et the DEVSV_CLU (dev ce is available glustereutae! bit 
n INIT_UCB if the device is on a multi-host bus (i.e. C1). 
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v03-174 RLRNOLOG Robert L. Rappaport 15-Apr-1983 
Don't log Available Attention messages. 
v03-173 Correct by Robert L. Rappaport 1-Apr-1983 


orrect bug in Cancel_10 Routine that affects cones 


tt I 4 M*QOOOTOOOOCOOOOOOOOOOO 


n the HIRT Q@ and the CDRP that owns the HIRT. 
s to DEALLOC_MSG BUF the buffer owned by these CDRP's 
prior to calling POST_CDRP. 
V03-172 RLRRWCPTRa Robert L. Rappaport 29-Mar-1983 
Correct bug in RLRRWCPTR fix. 
v03-171 RLRCANCELT Robert . Rappaport 29-Mar-1983 
sate ters e CDRP fields before dec idin —— to 


star 1/0 reque 0°6 whether to 

veri * — on of UCB 1/0 o. This revents © sus ing 
uninitialized fields Mk. being misinterpreted ug 
arose when an IRP traveled from 1/0 Queue to Mount 
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Verification Queue. This fix supercedes RLACANCELCc. 


v03-170 RLRDDB Robert L. Rappaport 18-Mar-1983 
Add support for multiple DDB's per connection. 


V03-169 RLRRWCPTR Robert Rappa 46-Mar-1983 
Test for zero UCBSL_RWC TR in R Un . IS. Ac and 
in ROT DiS. ACTION. “Such a situation Could occur if 

were evel able dur ng a re-Connection and 
if the re=connect on failed and we had to do a 
re-re-Connection. Also use Controller timeout for 
host timeout value for those controllers for which 
we care to set a host timeout. 


V03-168 RLRIHIRT Robert L. Rapp pagort 35-Mar-1983 
Eliminate window in Controlier initialization wherein 
a timeout on the Set Controller Characteristics command 
will cause us to neglect to call INIT_HIRT. 


0000 
D000 v03-167 RLRDSE Robert L. Rappaport 28-F eb-1983 
0 Aad support for 108, DSE. 
v03-166 RLRTMUCB Robert L. * port 25-Feb-1983 
Revamp Template UCB so as to be automatically compliant 


with new UCB add tions. 


V03-165 RLRRORX Robert L. Rappaport 9-F eb- 1983 
Add RD/RX definitions in tables. Also add patchable 
extensions to tables. 


V03-164 RLRCREDIT Robert L. Rappaport 18-Jan-1983 
Correct gooter te cat that cou d lose credits when do 
Cancel 1/0. Basically, CORP’s that are CANCELED 
poner * ABORTED), that hove already allocated 
Message Buffers have no wey of deallocating the 
eones ones SS are bE The only solution is to have them 
send a 


= SS 
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Add UCBSR_DU WAI TEMP bit’ in’ beobu GU DEVSTS. which is 

se the OCBSw_RWAITCNT hes s been Bumped due to either 
nitialization or “re-connection. This allows to bum 

(or not b ? he RWAITCNT in ventenn ction on a uni 


D000 65 Also use CDDBSu. NTRLTMO rather than INIT_IMMED_DELTA in 
000¢ 6 BRING_UNIT_ONL 
D000 66 Also Tn REPLACE_LBN, after weigting the TEST_PATTERN, 
D000 606 gues tc Licitly UNMAP and then reMAP before reading it back in. 
0000 ° 9 erwise on 780's we yin have buffered datapath problems. 
eelele 
000C 7? v03-163 RLRONLI Robert L. Rappaport 28-0 t-1982 
D00C 7 PI — Pue returns from ONLIN command so that 
000¢ iS unformatted disk does not cause crash. 
UU. 
0006 5 v03-162 RLRCLINIT Robert L. Rappaport 21-0 t-1982 
0000 § Clear CODBSM_INITING in Reconnection. 

8 v03-161 RLRWAITBMP Pobers 13-0c t-1982 

4 


by unit ba + Hy nstead of on a connection basis. This 
prevents situations where during in t or re-connect, 
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prre timeouts result in some but not ae of the units 
Hy their RWAITCNTs decremented. Also increment 
CODES -RSTRTICNT each time we enter re-connection code. 


v03-160 RLRBUNOL Robert L. uligeraport 11-0¢ t-1982 
. erect problem in Bring UNI OnLine ay ~ we 
nigh t use the connection permanent CORP 
oy ne one LETE, and therefore bump che soaitent 


v03-159 RLRPOLL Rappaport 8-0 t-1982 
Make the — of rontfotter for units a cal ag e 
function rather than in Line code executed at initialization 
time only. ro py call it after re-connection. 


V03-158 RLRMRESETb Robert \. Rappaport 8-0c t-198 
Correct bug introduced in V which cleared R5=>CDDB 
and then tested CDDBSW_STATUS bit. 


v03-157 RLRIATIN Robert L. Rappaport 5-0c t-1982 
In ATTN_MSG ignore attentions during initialization. 


V03-156 RLRMERSETa Robert L. fut aport 5-0c t-1982 
Change calls to MRESET and MSTART to pass PBSB_RSTATION 
instead of remote System ID. 


v03-155 RLRRESYN Robert L. "8 speepert 4-0c t-1982 
* DUSRESYNCH setup "Res 

V03-154 RLRATIN Robert L. Rappaport 29-Sep-1982 
Correct poy in Input Dispatcher Routine, wherein after 


receipt and handl ng of en Attention message, R3 was no 
longer pointing to the 


v03-153 RLRUNLCK bert L. Rappapo ort 24-Sep-1982 
Correct bug in UNLOEK HIRT that attempts to return 
to caller's caller whén original CDRP has been 
canceled. Problem is that caller may have left data 
on 248 Solution is to have caller to UNLOCK_HIRT 
check for sere * 9 ae cleanup its own stack Before 
returning ts 
Note- version pid dy taerenented by 100 to distinguish 
from .BUG version. 


v03-052 R Ralph 0. Weber 22-SEP-1982 
Regt tye coups ete UCB to Ths road with new UCB structure. 
WARNING: his 2*3 the enhan agent version of this driver 
completely =a ble with v3.0. 


v03-051 RLRPURGE Rappaport 17-Sep-1982 
In URITE RCT B ore —9 READ» T sBLOCK. do an expt tele 
MAP and ONMAP before each réad or write so gz to 
force a needed datapath purge on UDA‘s on 780's. 
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v03-050 ree Robert L. Rappa port 10-Sep-1982 
Allow — timing out of MAKE “tg ECTION. That is 


if the number of seconds specified in SGNSGL *ymsbS 
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has gees yi ge egan to fry to CONNECT, then 
terminate all pending 1/0 with SS$_CTRLERR. If this 
SGEN parameter is zero, then such timeouts are 
disabled and ue do not terminate any 1/0 but rather 
keep them pending until the CONNECTION is established. 


v03-049 RLRARESET Robert L. Rappe port 88-Sep-1982 
shanged of order oft ert SET and $ vee? so that an 
papi *s t Dd s NOT done if we decide to MRESET. 
Seated” a “ a * port ar vers to call our error 
a eapeeetel in order for the DISCONNECT to be done. 
Therefore after MRESET we now RSB. 


VO03-048 RLRCANCELe Robert L. Rappaport 27-Aug-1982 
Modify TST_CANCEL_CDRP so as to NOT test for virtual 
1/0 requests. 


V03-047 RLRCANCELG Robert L. Rappaport 24-Aug-1982 
Correct bug in CANCEL 1/0 wherein two cancels, in quick 
success ren. for a channel that had a CDRP that was doing 
replacement caused a crash. Fix is to check for zero 
tn HIRTSL, SAVECDRP of a busy HIRT. This could occur if 
we had alfaady posted the owner but allowed the replacement 
to run tu completion. 


V03-046 RLRO046 Robert L. Rappaport 22-July-1982 
Changed references to UCBSL EDIAID to ucesl Jeu⸗. ID. 
Also changed references to BU_FORK_IPL to IPL$_SCS 


V03-045 RLRCANCELC Robert L. Rappaport 7-July-1982 
Correct ~~ in anes b- 16 wherein we sake an IRP off 
he —* erification Q@ and call POST_IRP and the 
IRP had never had its CORP portion initialized. 

Fix entails clearing CORPSW_CDRPSIZE when INSQUE ing 
= uninitial trees IRP onto Mount verification Q and 

testing for this condition in POST_CDRP and then NOT 
calling DEALLOC_RESOURCES for sucha CDRP. 


V03-044 RLRCANCELb Robert L. Rappapo 7-July-1982 
Correct re-CONNECT bug that eft. —X —i T zero. 
Added new bit, CDRPSM psAn CELED. in CORP$W_STS that 
Sige inguisnes all CORP's that are * the Brocess of 
betas canceled. These CDORP’s are necessari oy oe queued 
ther the CDRPSL TOOFL or CORPS$L_ABCNT o 
—34 CORP. In RDT_DIS_ACTION we check for this. bit. 


noes Rober Rappaport 29-June-1982 
Aid DCDEF, SIPLDEF, "$ptaper SPRDEF, SSSDEF. ane SVADEF . 


V03-042 RLRCANCELa Robert L eePpgeor’ 24-June-1982 
Correct minor —* in CANCEL 


v03-041 RL RECO! S tt. Rappapor rt 16-June-1982 
Allow for long — int nite) host timeouts on UDA. 


V03-040 RLRCANCEL Robert f Rappaport 10-June-1982 
Add CANCEL_IO functionality. 
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v03-039 BL RECOTe Robert L. Ra papers 7-June-1982 
Eliminate extra UCB created by SYSGEN. This entails 
ns ay a@ bogus UNITINIT routine to be called that 
only looks out for bogus UCB’s and eliminates them. 

v03-038 RLRECO11 Robert L. Rappaport 4-June-1982 
Two corre 


ctions: 
1. BRW to DUSRE_SYNCH as a roots of an INIT_TIMEOUT. 
2. Return proper success status if disk write-locked 
on a PACKACK operation. We were returning 
SS$_WRITLCK. ALso if ONLINE succeeds but 
ONLTNE_ COMPLETE fails due to something other 
than write-lock, make disk AVAILABLE. 


v03-037 RLRECO10 Robert L. Reppasers 3-June-1982 
Correct error introduced in RLRECOO7 wherein MOVZWL 
to HIRTSW_IOST also cleared next word (HIRT$W_STS). 


V03-036 RLRECO09 Robert L. Rappaport 2-June-1982 
Correct two problems: 
1. In INSERT_RSTRTQ, do NOT (recursively) insert the 
WIRTSL_SAVOCORP if this CDRP is the connection permanent 


- Lengthen the connection permanent CDRP (appended to CDDB) 
to the length of a normal CDRP (including an TR? refix). 

Also insure that this CDRP has a valid value in CDRPSL_UCB. 
This is necessary to allow proper deallocation of map resources 
that may have been put here due to re-CONNECT from HIRTCDRP 
when we are running on the UDA port. This port driver needs 

to have access to a UCB in order to find the CRB. 


v03-035 RLRECOO8 Robert L. Rappaport 26-May-1982 
orrect shift of FORCEDERROR subcode in 
TRANSFER_DATA_ERROR. 


v03-034 RLRECO07 Robert L. Reppe ort 26-May-1982 
Allow write locked disks to be MOUNTed. 


V03-033 RLRECO06 Robert t. Rappepor’ 25-May-1982 
Correct bug introduced in 1, wherein resetting 
of Timeout Routine was done prematurely. 


v03-032 RLRECOOS Robert L. Rappaport ——— 1962 
To precece against a sick controller, do UNMAPs for 
collected CDRP's only after controller reset and 

ISCONNECT done in re-CONNECT logic. This is 
done by having INSERT_RSTRTQ now call DEALO_MSG_RSPID, 
which onty deallocates these resources, and then 
calling DEALLOC_RESOURCES for all collected CDRP's. 
Also any mapping resources ei locates by the HIRTCDRP 
for this connection are copied to the connection 
geragnent CDRP which also has DEALLOC_RESOURCES called 
for it at this same time. 


v03-031 RLRECO04 Robert L. Rappaport 19-May-1982 
Im UNLOCK_HIRT, after call to GRANT_HIRT, resume thread 
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from HIRTSL_ 3688*8 rather than from RS => ReplaceCDRP 
returned by GRANT_HIRT. 


v03-030 RLREC C003 Ro bert L. Rappaport 19-May-1982 
Return SS$_DRVERR to ysers of PACKACK and erenster 
functions Tf MSCPSK_ST_MEDOFL is returned with 
MSCPS$V_SC_INOPR subCodé also set. 


v03-029 RLRE COO? Robert L. Rappaport 13-Ma og -1982 
» Retress in oat ng Message after ONLINE_COMPLETE in 


ONLINE. 
z: Retresh S¢S8y ASTALCUCE in UNLOCK_HIRT 
End Message aftér UNMAP in STEP7 of 


This — — patch to DUDRIVER in V3.1 


v03-028 RLRECOO1 Robert L. Rappaport 26-Apr-1982 
th UNLOCK_HIRT, do not reassign RSPID to user CDRP if 
RSPID has been deallocated due to re-CONNECT. Also 
re-establish DUSTMR as timeout routine after “calling 
MAKE_CONNECTION in re-CONNECTION. 
This change tracks patch to DUDRIVER in v3.0 


MACRO LIBRARY CALLS 


Sete Se Ge Ge Re Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
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SOOooooooooooooo 
SOOOOCOCOSOSOSOSOSOSOSSOOSOOCOCOCOOSOCOOCOSOSOSOOCOCOOOOCOCOOCOCOOOCOOOOOOOOOOOOOOOO 


Define Processor _avateters 
; RC’ offse 


— 
— 
— 
— => 
—_e 
2 
e 


SCODBDEF sDefine CDDB offsets 
: CDRP offsets 
SCOTDEF sDefine COT Ae 
SCRBDEF sDefine CRB offse 
SOCDEF sDefine Device etasses and Types 
SDDBDEF sDefine DDB offse 
SDEVDEF Define DEVICE CHARACTERISTICS bits 
SOPTDEF sDefine DPT offse 
SDYNDEF Define DYN symbo ote 
SEMBLTDEF sDefine EMB Log fe ** Types 
SFKBDEF sDefine FKB 
SIDBDEF sDefine IDB offse 
SIODEF :Define 1/0 FUNCTION codes 
SIPLOEF sDefine IPL levels 
SIRPDEF :Define IRP offsets 
SMSCPDEF sDefine MSCP packet offsets 
SMSLGDEF Define MSCP Error Log offsets 
SMTXDEF sDefine MUTEX gt rect 
SORBDEF sDefine ORB offse 
SPBDEF :Define Path Block “ eftects 
SPCBDEF sDefine PCB offsets 
PDTDEF sDefine POT offsets 
PROEF 
DE 
EF 
DEF 
EF 


sc S$ Connect Message offsets 
DEF :Define System Status values 
BDEF sDefine UCB offsets 


SOSCSSSCOSOSSSSSSOSOOSOSOSOSOSOOOSOOSOOSOSOSOSOSOOSOOSOOSOOOOSOOOSOOOSSoOo 


wooowowowowowowowowvond 
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D 
ee Define Systen Block Offsets 
$ 
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4 = $6013 


- DISK CLASS DRIVER 


oot" 


13 SVADEF 
14 VECDEF 
15 WCBDEF 
i 
18 SDUTUDEF 
1 
354 
4 § 3 Constants 
00000001 4 ALLOC_DELTA=1 ; 
0000001€ § INIT_IMMED_DELTA=30 3 
0000000 3 : CONNECT_DELTA=10 ; 
9 : 
0000001E 000 3 ? HOS7_TIMEOUT=30 : 
0000001 ° 9 : DISCONNECT REASON=1 
000000A 934 INITIAL_CREDI 
Ss HSS FU anus te coun 
0000002 00 9 $ MIN~SEND_CREDIT=2 
ae 
99 940 ; ARGUMENT LIST OFFSET DEFINITIONS 
942 © 
00000000 80 308 P1=0 
0000004 0000 944 pees 
0000008 99 945 P3=8 
990000¢ 0 946 P4=12 
9000 10 0000 947 P5=16 
0000014 0000 948 P6=20 


AX/VMS Macro v04-00 Page 17 
gt 90:3 is OB DRIVER. SRC IJDUDRIVER.MAR; 2 ° (1) 
spot ine Virtual Address offsets 
Def ine De Nae T DISPATCH VECTOR offsets 
iDefine WCB offsets 


Define ae class driver CDDB 
3 extensions and other common symbols 


; Number of seconds to wait to retry pool 


allocation that failed. 


a 
; During Controller Initialization the 


timeout DELTA for immediate MSCP commands. 
During Controller Initialization, the 

time interval for retrying failed 

CONNECT attempts. 


; Host timeout value. 


sFIRST FUNCTION DEPENDENT PARAMETER 
SECOND FUNCTION DEPENDENT PARAMETER 
THIRD FUNCTION DEP NT_ PARAMETER 
FOURTH FUNCTION DEPENDENT PARAMETER 
sFIFTH FUNCTION DEPENDENT PARAMETER 
SIXTH FUNCTION DEPENDENY PARAMETER 


INIT 


Ze 
ER 16-SEP-1984 00:55:34 YAX/VMS Ma v04-00 P 
$: — —— DRIVER. SRCJDUDRIVER.MAR; 2 te 
~SBTTL MACRO DEFINITIONS 


: Expanded opcode macros - Branch word conditional psuedo opcodes. 


; BWNEQ = Branch (word offset) not equal 


MACRO BWNEQ ODEST,?L1 


ON 

4 

; 

BEQL L1 ; Branch around if NOT NEQ. 

BRwW DEST 3; Branch to destination if NEQ. 
964 L1: ; Around. 
965 -NOSHOW 
sey ~ENDM BWNEQ 
68 ; 

se9 3; BWEQL - Branch (word offset) equal 
971 ° 
33 -MACRO BWEQL ODEST,?L1 
4 . SHOW 

74 BNEQ L1 : Branch around if NOT EQL. 
975 BRwW DEST 3 Branch to destination if EQL. 
376 L1: 3; Around. 
97 ~NOSHOW 
4 -ENDM BWEQL 
980 ; 
2 3 BWBS - Branch (word offset) bit set. 
9 oO 
4 : “Races BwBS BIT, FIELD, DEST, ?L1 
9 BBC BIT, FIELD.L1 : Branch around if bit NOT set. 
9 BRw DEST : Branch to destination if bit set. 
9 3 L1: ; Around. 
9 -NOSHOW 
9 -ENDM BWBS 
ee ; BWBC - Branch (word offset) bit clear. 
995 ° 
44 “mateo BwBC BIT. FIELD, DEST, ?L1 
3 BBS BIT, FIENY,L1 : Branch around if bit NOT clear. 

BRW best : Branch to destination if bit clear. 

1 ? L1: 3; Around. 
1 »NOSHOW 
1002 -ENDM BWBC 


— — 


| 6 5 
k = DISK CLASS DRIVER 16-SEP-1984 00:55:34 YAX/VMS Macro Vv04-00 P 19 
—XR ASSUMES % pants —— DRIVE 4. 85 DUDRIVER.MAR; 2 ee (1) 
-SBTTL ASSUMES 
6 ; The followi t of ASS i | Map Lt be t l 
e ote ng set o yy bbe enents all be true as long as 


of 1008 ° IRP and CORP de qn consistent. 
00 100 $ DRPSL_ 3 par 100Ft EQ IRPSL_IOQFL 
0 101 ASSUM cor nies Rest ~100 Ed {RPSL 10QBL 
DC 1 SSUM BRP J HE art pe ior. Q RPS$W_SIZE 
DC 1 $$ 80 sats EQ nese. lyre 
OC 1 ASSUM A RP$B_RMOD 
000 1014 StUmE CORP S=AnB-cok sc roor Q IRPS$L-P1D 
000 15 Assun CORP LIASTECORPSL | 100F eG [RPSL AS! 
0 16 AS CORPSL_ASTPRM-CDRPSL_IOQFL Q RPSL-ASTPRM 
OC 1 $$ CORPSL_WIND-CDRPSL_IOOFL EQ IRPSL_-WIND 
OC 1 ASSUME CORPSL-UCB-C — TOOFL EQ IRP$L_UCB 
1 $$ CORPSW"FUNC-CDRPSC_IOQFL EQ IRPSU_PUNC 
10 SSUNE CORPSBEFN-CORPSL_TOOFL EQ IRPSB_EFN 
i} 1 ASSUME CORPSB_PRI-CORPSL-IOOFL EQ IRP$B_PRI 
00 ¢ $$ CORPSL-10SB-CDRPSC_IOQFL EQ IRP$L_10S8 
D0 ASSUME CORPSW-CHAN-CORPSL~ IOOFL EQ IRP$W_ CHAN 
OC 4 CORPSW_STS-CDRPSL_TOOFL EQ IRPS$W_STS 
OC 5 CORPSL-SVAPTE-CDRPSL_IOQFL EQ IRPS$L_SVAPTE 
$ ASSUME CORPSW-BOFF-CORPSL_IOOFL EQ IRPS$W_BOF F 
CORPSL_BCNT-CDRPSL_IOQFL EQ IRPS$L_BCNT 
$ ASSUME CORPSW"BCNT st 1OQFL EQ IRPS$W_BCNT 
SSUME CORPSL_IOST1-CDRPSC_IOOFL EQ IRP$L_10ST1 
0 SSUME CDRPSL-MEDIA-CORPSL_IOOFL EQ IRPSL_MEDIA 
1 ASSUME CORPSL-10ST2-CDRPSL~ IOOFL EQ IRP$L_10ST2 
; SUME RPSL_TT_TERM-CORPSL_IOOQFL EQ IRPSL_TT_TERM 
CORP$B_CARCON-CDRPSL Joort EQ IRP$B_CAR 
4 ASSUME CORPSQ"NT_PRVMSK-CDRPSL_IOQFL £0 IRP$Q_NT_PRVMSK 
5 CORPSL_ABCNT=-CDRPSL_IOOFL EQ IRPSL_ABC 
§ SSUME CDRPSW_ABCNT-CDRPSL_IOOFL EQ IRP$W_ABC 
ASSUME CORPSL-OBCNT-CDRPSL_IOOQFL EQ IRPS$L_OBCNT 
} DRPSW_OBCNT-CDR st 1OQFL EQ IRP$W-OBCNT 
ASSUME CORPSL~ eg res C joart EQ IRP$L_SEGVBN 
0 ASSUME CORPSL-JNL_SEQNO-CORPSL_I0QFL £0 IRPS$L_JNL_SE 
41 ASSUME CDRPSL-DIAGBUF-CORPSL_IOOFL EQ IRP$L—D 1 AGBUF 
8 ASSUME CORPSL-SEQNUM-CDRPSL ideett EQ IRP$L-SEQ 
4 ASSUME CDRPSL “EXTEND-CDRPSL™ 1OQFL EQ IRPSL_EXTEND 
44 ASSUME CDRPSL_ARB-CDRPSL_IOGFL EQ IRPS$L-AR 


— — — — — — — —— — — — — — — — — — —— —— — — — 


— — — — — 


4 5 
co = DISK CLASS DRIVER 16-SEP-1984 00:55:34 VAX/VMS Macro v04-00 P 
vive DIRE ELAS BREGER DEVICE DEPENDENT UNIT ‘SeSEpcione Soitacoe PAAIVES Bacse vot Oe nse Oe 29, 
LSBTTL DISK CLASS DRIVER DEVICE DEPENDENT UNIT CONTROL BLOCK OFFSETS 
SDEFINI UCB, GLOBAL : The GLOBAL is for DUMIRT. 


= ———— 


= T 
oooooott 4—8 per pice oy Mi 


utes. _6u_vo -BLKL 1 Volume Serial number as returned 


in ONLINE end packet. 

SDEF UCBSL_DU_USIZE .BLKL 1 3; Size of user visible area of unit 
; _in logical blocks. 

SDEF UCBSL_DU_TOTSZ .BLKL 1 i Size of unit including RCT area in 


logical blocks. 
SDEF UCBSW_DU_RCTSIZE 


OOOOOOFA ‘ 1 ; Size of the RCT in blocks. 
\ SDEF UCBSB_DU_RCTCPYS 
000000F 8B 00 -BL 1 3; Number of RCT copies on the unit. 
D0 SDEF UCBSB_DU_RBNPTRK 
oooooOFC ¢ -BL 1 ; RBN's per track. 
i SDEF — UCBSW_DU_LBNPTRK 
OO00000F E D0 d 1 3; LON's per track. 
SDEF UCBSW_DU_TRKPGRP 
00000100 -BLKW 1 ; Tracks per group. 
SDEF UCBSW_DU_GRPPCYL 
00000102 BL 1 3; Groups per cylinder. 
00000102 UCBSK_DU_LENGTH=. 
SDEFEND UCB 
ASSUME UCBSK_DU_LENGTH LE UCBSK_LENGTH+160 


If the preceeding ASSUME macro breaks it is a signal that the Disk Class 
; Driver UCB has grove terger than the space allocated to the Boot 
. DEVICED 


Device UCB in C AT.MAR, The Boot Device UCB allocated 
in DEVICEDAT is longwords longer than the nominal UCB (whose Length 
is known symbolically as UCBSK_LENGTH). This additional length is 
meant to accomodate all possible idiosyncracies that individual disk 
drivers might have. To corrode such an overgrowth in UCB size entails 
enlarging the expansion area in the Boot Device UCB (beyond the 4 
longwords) and the relevant correction to the above ASS macro. 


-SBTTL Allocate Space for Template UCB 
3; Allocate zeroed space for template UCB and ORB. 


INIT_UCB size=UCB$K_DU_ LENGTH 
INIT[ORB size=ORBSC-LEAGTH 
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«SBTTL ORIVER PROLOGUE AND DISPATCH TABLES (and UCB Initialization) 


LOCAL DATA 
DRIVER PROLOGUE TABLE 
DPTAB = 


pty Pn ay hl 
ADAPTER=NU 


H NOUNLOAD>, = 
UCBS 16 SUCBSK DU_LENGTH, 
MAXUNITS=1,- 


NAME =DUDRIVER 
DPT_STORE INIT 


DPT_STORE DDB,DDBSL_ACPD.L.<*A\F11\> 


DPT"STORE DDB,DDBSL_-ACPD+5,B,1 


as well as ereres ie 
gtey tures reflect the 
nitially processed by th 
iJ 


IZ 

YPE ,BYTE.D 
IPL BYTE 
EV 


— — — — Bete te Be Ge 


<3 
T 
F 
D 


Initially the disk is made t 
errors an 
correct s 
not be known immed ately 

T_ucB L_MAXBLOCK, 


: The following ORB initialization requests alter the 
3; as well as produc ing equivalent 
3 structures reflect th 


e required 


DEFINE DRIVER PROLOGUE TABLE 
End of driver 


No Adapter 


; Driver requires that SCS be loaded 


Driver gennet be reloaded 

sSysgen insists on making a UCB 
iSysgen insists on making a UCB 

: Driver name 

; Control block init values 
3 Default ACP name 

3; ACP class 


The following UCB initialization requests alter the template UCB 

equivalent DPT_STORE entries. h 

requ red initial UCB 
s driv 


Thus bot 
tate and the UCBs 
er are identical whether they are 


produced by SYSGEN or by IOCSCOPY_UCB. 


E ,WORD ,UCBSK_DU_LENGTH 
YNSC 

IPL$_SCS 

CHAR -LONG  <2DEVSM_F OD + - 


uc 


'UCBSM“MSCP_INITING = 
iUCBSM~MSCP"WAI TBMP>> 


look huge. 

the MSCP server will catch omy real problems. 

ze is known or it has been dotorained that the size need 
this velye w 

LONG, <<*x7F0O 


This prevents comparison 
Once the 


3 bore reduced. 


template ORB 
PT 7 TORE entries. Thus both 
ni€ial ORB state and the ORBs 
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AND DISPATCH TABLES (and ‘$-$¢ 


: initially processed by this 
3 produced by SYSGEN or by IOCSCOPY_UCB. 


SGE 
NIT_ORB W 
in NIT “ORB B= TvPE: 
B-FLAGS 
W_PRO 
L“OWNE 


NIT-ORB 


iN T_ORB 
T=ORB 


DPT_STORE REINIT 


$ not 
124 were 12 
3 need to be re- 


DPT_STORE ager’ 


P= 
P=} 


m fk 
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»WORD ,ORBSC_LENGTH 
BYTE ,DYNSC C-ORB 


Ones in PROT 16>> 


—32 —X 


i 8. S. Goueteg 1 he Set Loutng values 
nifti Sone oy ry ‘° 


snan:2 *28* i 


river are identical whether they are 


3 sogy rotection word 
3 ault protection 


i NO owner as yet 


3; Control block re-initialization values 


fo 


rel 


be setup on gat th — 
driver cannes e 


oade 
er to be re —** the following —— would 


nit + zed upon each dr 


RBSL 
DPT_STORE DDBTODBSL. DDT .B,DuSsDDT 


DPT_STORE END 


$ DRIVER DISPATCH TABLE 


DOTAB DEVNAM=DU 


3D 
START=DU_ §TARTIO,= 3$ 
FUN ef 


: entry as de 
; measure. 


ver reload. 


ntroller init routine. 


Co 
INTD*VECSL 314 D,DUL CONTROLLER INIT 


; DOT address. 


LE 


ABLE 


AB 
ON 

T 
POINT 


erecegsin 
> Use of the ynsot cited in 

fined above is a temporary 
It will be changed when 


Y 
3; DIAG BUFF SIZE 
ation routine. 


eat 


3; a correct DDT entry can be defined. 
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.STTL DISK CLASS DRIVER FUNCTION DECISION TABLE 


+ 


DU_FUNCTABLE: 
FUNCTAB 


FUNCTAB 


FUNCTAS * 


FUNCTAB Le 


FUNCTAB 
FUNCTAB 
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32 


Ae 


ADPBLE. Phd 


CHECK, 
URITELBLE “* 
WRITEVBLK> 

sACPSACCESS = 


REATE 
SACPEDEACCESS« 


= 


; _DISK CLASS DRIVER FUNCTION DECISION TABLE 


e Pe Se Se Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge te Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge 


<DEACCESS>: 


| 
| 
;Function Decision Table | 
| 


LEGAL hed bing 
Unlose (make available + spindown) 
pf down) 


Sense —— tics 
Set Characteristics 


se Mode | 
— Mode 
Write Check 
Read PHYSICAL Block 
Read LOGICAL Block 
Write Losi Block 
Read VIRTUAL Block 
Write VIRTUAL Block 


Data Security Erase 

Access file Lad/er find directory entry 
ACP Control Function 

Create file and/or create directory entry 
Deaccess e 

Delete file and/or directory entry 

poetry 4 attributes 


Mount volum 
BUFFERED I 170. FUNCTIONS 

Gntens ta Coke available + spindown) 
Available (no spindown) 

Pack Acknowledge 

Data Security Erase 


Sense Charac istics 
Set Characteristics 
Sense Mode 


et de 
Kecees file and/or find directory entry 
ACP control Function 
Ry le odlas — directory entry 


s file 
elete “File cabs r directory entr 
ete file attributes 4 y 


un ume 
ead LOGICAL Block 


zDD 
mn 
pa 
co 
wr Y 
Z< 
— 
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AC 
DEA 
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FUNCTAB ceeCenceity.s 
<P Fe 


ACP Control Funes ton 
Delete file * d fostery entry 
Modify File Attribute 


AB kA <DSE> =f pata Security Erase 


SOoOOoOoOoOoOoOocd: 


Ss 


. 

t 

' 

' 

p FUNCT 

‘ FUNCTAB +ACP 

09C FUNCTAB DUSSHADOW UPACRACK. _FOT, 3 Pack Acknowledge processing for 
09 <PACKACK> shadowed volume set s must 
DA ° gbroceee EXE LCLDSKVALID processing. 
DOA FUNCTAB cERESLCLOSKVALIO. = Functions effecting UCBSV_VALID 
DOA PACKACK, Pack Acknowledge 
BRA 7 “AVAIL LABLE, - dvpt ante (no spin-down) 

: 5 FUNC TAB sEXESTEROPARK, - tere. par eer functions 
6 <NOP> No Operat 
6 FUNCTAB cE TE SSENSEROBE 
6 <SENSECA Sense Characteristics 
Sense Mode 


5 FUNCTAB Uae ° 
72 SE TMODE> 


— — — — — — — — — — — — — — — — — — — — OU 


Set Characteristics 
Set Mode 
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-SBTTL Static Storage 
-SBTTL = Data Area Shared With Common Subroutines Module 


+ 
2 


Data Area Shared With Common Subroutines Module 
Functional Description: 
This PSECT contains those constant (Link-time) values which would 


otherwise be passed as arguments to the disk and tape class driver 
common routines in module DUTUSUBS. 


. SAVE 

-PSECT $$$220_DUTU_DATA_01 RD.WRT,EXE,LONG 

ASSUME DUTUSL_CDDB_LISTHEAD EQ 0 
base + DUTUSL_CDDB_LISTHEAD 

ADDRESS IOC$GL_0U_CDDB 


Location containing the 
address of the CDDB Listhead 
for CDDBs belonging to the 
disk device type 


«RESTORE 
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| 
14 ! * -SBTTL = Media-id to Device Type Conversion Table 
D8 1303 ; | 
43 } : Media-id to Device Type Conversion Table | 
p ; Functional Description: | 
D8 1308; This table is used by DUTUSGET_DEVTYPE to convert a MSCP media 
! ; identifier to a VMS device type. 
p8 1311; Entries are made here in order of ++ at frequency of use. This 
Wit ! 1g : speeds lookup for the more common cases 
008 1314 ;-- 
D008 1315 
D8 1316 MEDIA <DU>, <RA80> 
25641050 8 «LONG SSMEDIASS 
14 Be «BYTE DT$_RA80 
9 1317 MEDIA <DU>, <RA81> 
25641051 05 «LONG SSMEDIASS 
15 + -BYTE DT$_RA81 
St 44 1318 MEDIA <DJ>, <RA60> 
' 
22A4103C QO0A -LONG SSMEDIASS 
16 444 -BYTE DT$_RA60 
noe 1319 MEDIA <DU>, <RA82> 
25641052 O00F -LONG SSMEDIASS 
1E zu BYTE DT$_RA8&2 
81 1320 MEDIA <DU>, <RD52> 
25644034 0014 «LONG $SMEDIASS 
18 34 BYTE DT$_RD52 
08 1321 MEDIA <DU>, <RDS3> 
25644035 19 - LONG senepiaes 
1¢ 19 BYTE DT$_RD5S 
08 1322 MEDIA <DU>, <RDS1> 
25664053 1 -LONG S$SMEDIASS 
1 § -BYTE OT$_RD51 
1323 MEDIA <DU>, <RX50> | 
25658032 -LONG SSMEDIASS | 
1A -BYTE DT$_RX5 
of 1324 MEDIA <DA>, <RC25> 
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J ame SERIES | 
H 1325 MEDIA  <DA>, <RCF25> 
os : AME SIERESE | 
: 1326 MEDIA <DA>, <RC26> 
2064301A | .LONG  SSMEDIASS | 
1F -BYTE DTS$_RC26 | 
Ong 1327 MEDIA <DA>, <RCF26> | 
2064331A 6 7 -LONG  $SMEDIASS 
20 f -BYTE DTS_RCF26 | 
0 — 1328 MEDIA <DU>, <CDR50> 
sus uote SHEDS 
041 : . | 
B08 1329 MEDIA <DB>, <RP06> | 
25008 BR un SNEROE! 
0008 1330 MEDIA <DR>, <RMO5> | 
——— AOE SERS | 
O08 1331 MEDIA  <DR>, <RPO7> | 
250g ee Ae SERAOH 
D8 1332 MEDIA  <DR>, <RM80> | 
24A4D050 8 .LONG S$SMEDIASS | 
0D 34 “BYTE DT$_RM8O | 
3 1333 MEDIA <DR>, <RMO3> 
aoe Ae zrrzr 
08 1334 MEDIA  <DR>, <RPO8>, DT$_RPO7HT 
| 
rosy AME SHER 
4 1335 MEDIA <DB>, <RPOS> | 
2508s Be ae zurezig 
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64 
08 1336 MEDIA <DB>, <RPO4> 
20450004 8 .LONG SSMEDIASS 
3 8 -BYTE DT$_RPO4 
08 1337 MEDIA <DM>, <RKO7> 
23648007 69 LONG SSHEDIASS 
2 60 -BYTE DT$_RKO | 
o8 1338 MEDIA <DM>, <RK06> 
23648006 06 .LONG  SSMEDIASS | 
01 07 -BYTE DT$_RK06 | 
Op 1339 MEDIA <DU>, <RX31> 
2565801F 007 LLONG  SSMEDIASS | 
23 07 .BYTE DT$_RX31 
3H 1340 MEDIA <DU>, <RX32> | 
25658020 007 .LONG  SSMEDIASS | 
4 83 “BYTE DT$_RX32 | 
O08 1341 MEDIA  <DU>, <RX18> 
‘ 25658012 0070 LONG SSMEDIASS | 
2 081 -BYTE DT$_RX18 | 
3 1342 MEDIA <DL>, <RLO2> | 
2324002 008 .LONG $SMEDIASS 
OA 8 -BYTE DT$_RLO2 | 
9D8 1343 MEDIA <DL>, <RLO1> 
2324001 0087 .LONG  $SMEDIASS | 
09 088 -BYTE  DT$_RLO1 | 
4 1344 MEDIA <DY>, <RX04> | 
26658004 ac .LONG $SMEDIASS | 
t 30 -BYTE DT$_RX04 | 
5 1345 MEDIA <DY>, <RX02> 
26658002 0091 .LONG SSMEDIASS | 
08 99 -BYTE DT$_RXO2 | 
08 1346 MEDIA <DX>, <RX01> 
26258001 0096 .LONG SSMEDIASS 
10 O09A -BYTE DT$_RXO1 
8 1347 MEDIA <DD>, <TUS8> 
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98 
21295038 98 «LONG SSMEDIASS 
E +4 BYTE DOT$_TUS 
s 1348 MEDIA <DQ>, <RBO2> 
ie | A - LONG bee zug 
1 4 «BYTE DT$_RBO2 
1349 MEDIA <DQ>, <RBB0> 
26642050 A - LONG Senco iass 
1 28 -BYTE OTS_RB8 
08 1350 MEDIA <ML>, <ML11> 
681AC008 Baa -LONG SSMEDIASS 
11 QOAE -BYTE OTS_ML11 
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-SBTTL Controller Initialization Routine 
DB 1554 ;¢ 
4 ! 5 ; MSCP speaking intelligent controller initialization routine. 
d8 1 5 ; INPUTS: 
d8 1 8 3 R4 => System 1D of intelligent controller. 
os 1 3 RS => 168 
D8 1360 ; R6 => DOB 
! $3 3 R8 => CRB for intelligent controller. 
D8 1363 ° 
D8 1364 DU_CONTROLLER_ INIT: 
06 11 D8 1365 BRB $ : Branch around breakpoint. 
Q0000000'GF 16 of : 66 0s JSB G* INISBRK ; Breakpoint for debugging. 
060 1368 | 
OEO 1 $3 3; Check for CODB already greens If a CDDB is present. this call results 
0E0 1370 ; from a power failure. This driver performs power failure recovery as a 
Of : re 3 result of virtual circuit closure notification. No action need be taken 
; here. 
EO 137 
10 a8 rf OEO 1374 TSTL CRBSL_AUXSTRUC (RB) : Is there a CDDB present? 
iw 3 OES 1375 BEQL 5$ ; Branch if CDDB is not present. 
05 OE» 26 RSB ; Else, just exit. | 
0&6 1 4 3; Check that only one UCB is chained onto the input DDB. This UCB could be 
0E6 1379 ; the boot device UCB. Therefore, make the UCB online so that 1/0 may be 
OE6 1380 ; performed on it. ALL other initialization of the UCB is performed as the | 
OE6 1381 ; result of DPT_STORE entries place in the INIT section of the DPT by the | 
Bee : § ; INIT_UCB macro. 
OE6 1384 5$: 
55 04 46 1) BER 1385 MOVL DDBSL_UCB(R6) R5 ; RS => first UCB if any. 
64 a5 1 t EA 1 $ BISL #UCBSA_ONLINE, - 3; Set the possibly boot UCB online. 
€— 1 UCBSL_STS(R5) | 
30 AS) OD ef 1 8 TSTL VERSE LL IK (RS) : Is there another UCB? 
06 1 2g] BEQL ; EQL implies no more UCB's. 
a ! + 108: BUG_ CHECK DISKCLASS,FATAL ; For now. 
F? (139 : | 
ie 38 ; Setup those values which must be correct before IPL is lowered from 31. | 
F? 1394 ; Then FORK to create an IPLS$_SCS fork thread which will complete controller 
f7 1395 ; initialization. Initializafion of an MSCP server requires several message 
fF? 1396 ; exchanges and consumes several seconds. Therefore, this work is conducted 
4 ' ; 3; in a fork thread with other system initialization proceeding concurrently. 
10 48 55 00 ig 99 MOVL RS, CRBSL_AUXSTRUC(R8) ; The UCB will act as a CDDB until the 
oocc (5) 64 70 4 14 ? mova (R4) : feet re M 3 +m ID for call to 
- ; Setup remote syste 
: 1° § UCB$4_UNIT_ID(R5) 3 DUTUSCREATE CD 8. 
! 7 : FORK : Create initialization fork thread. 
: 1 — ; Create and initialize the CDDB. 
FEF7" 30 01 1408 BSBw DUTUSCREATE_CDDB 
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: Here we call an internal subroutine which: 


=sS 


See Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se 


1. Makes a connection to the MSCP server in the intelligent 
controller. 


2. Sends an MSCP command to SET CONTROLLER CHARACTERISTICS. 


3. Allocates an MSCP buffer and RSPID for our future use in 
connection management. 


Upon return R4 => PDT and RS => CDRP. 


— 
— 2— — — — — — 


— ⏑ DS BW SOOO — a IM ⏑⏑»A———— 


55 00D0 $3 MOVAL CDDBSA_PRMCDORP(RS), RS ; Get permanent CDRP address. 
BSBW MAKE_CONNECTION : Call internal subroutine to make 
1 3 @ connection to the MSCP server in 
1 3; the intelligent genera: ists Input 
: 3 and output are R 
1 3 
1 ; Here we determine if the 2— of performing Controller 
1 3 nitiated bad block replacement If so we branch around. f not, 
: ; ve, catt INIT_HIRT to initialize the HIRT (Host Intitiated Replacement 
3 able. 
! 3 
1 PERMCDRP_TO_CDDB - 3; Get CDDB address in R3. 
: tdrp=R5, cddb=R3 
OF 1 BBS #MSCPSV_CF_REPLC 3 See if Controller initiated replacement. | 
03 28 A3 1 CODBSW CNTRLFLGSIR3), 908; If so, branch around. 
FEEO* 1 BSBW SUSINI TH i initialize HIRT. | 
50 18 a3 90S: 36 CODBSLCRB(R3) ko ; Get CRB address. | 
1¢ Ao 830 OC7A'CF MOVAB W*D “a — ae 3 Establish permanent timeout routine. | 
512A AS MOVZWL CDDBSO_CN ENTALTROCRS) ; Get controiler timeout interval. | 
18 AO 00000000'GF 51 ADDL3 R11, G*EXE ; Use that to set next timeout 


CROSL “BUETINE CRO) "| wakeup time. 


; The normal MSCP timeout mechanism is now in effect. Henceforth, | 
3; no fork thread may use the CDDB permanent CDRP as a fork block. 


ASSUME CDDBSV_DAPBSY GE 2° 


PPP PVPS B® BB EE EEE 


13 43 04 B1SB #<CopeSh M_DAPBSY @ -8>, -; Set DAP CDRP in use flag. 
Coops W_STATUS+1(R3) 
55 54 a3 MOVL EDDBSL ~SAPCHRP (RSD RS ; Get DAP CDRP address. 
FEBE' BSBW DUTUSPOLL_FOR_UNITS > Poll controller for units. 
12 43 0480 8F : Clear no-connection and 


BICW = #<CDDBSM_NOCONN ~ 
'CDDBSM-DAPBSY>, - ; DAP-CDRP-busy flags. 
CODBSW_STATUS (R35 


SUBL3 — CDDB_LINK - ; Get ‘previous’ UCB in R5. 
° ae 4 C_UCBCHAIN>, = 


53 0000007C 8F 
55 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — eee 
Fat at at et et te eh eh ek kh kh teh te teh a leh eh teh ah teh ee ek ek ek ek ek ek ek ek eh ek ek ek tek ek kek ek ek a kee eee 
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hated Controller ingt 1Tlsotten Routine "$78 Pe} 138 99: iz: 36 RIVE a. Sat ¢ Dub DUDRIVER.MAR;2 we it 
i 14 
$5 00C4 C5 1 1467 100$: MOVL CDODB_LINK(RS), RS ; See nent ee if any in RS. 
| th 8 i 14 8 QL YERst- ; oan? more U uUCcB's. 
68 AS) 0400 BF AA 135 \¢ Cw Ores BevsTStRaye 3 — —— RUA ITCNT no longer bumped. 
| 56 as 1 147 cw “RWAITCNT (RS) 3 Decrement wait reason count 
1 147 QL : If count is zero, start 170. 
FE i 147 SBW AOA RwA 1X 3; Else, check for vaild wait count. 
F 1 i 1476 1208:  PUSHR oe nC R2,R3,R4,R5> ; Save registers before call. 
00000000" ¢F 16? 147 JS8 G*SCS nsf ayc * : Startup any queued up 1/0 requests. 
f 9 1 1678 POPR @*M<RO,R1,RZ,RS5,R4,R5> =; Restore registers after call. 
1 ; ; 16 BRB 100$ i; Loop back to test more UCB’s (if any). 
1243 064 AA 01 1298 130$: BICW —** Wy Me 3; Clear the “initing™ bit. 
175 14 6 CODBSW_STATUS(RS) | 
05 Ve? 16 RSB 3; Terminate this thread of execution. 
176 1485 INIT_TIMEOUT: : Controller Init Timeout handler. 
0915 31 0176 14 BRW DUSRE _SYNCH i; If we timeout, try to restart. 


ee ———————— 
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} \é -SBTTL MAKE_CONNECTION 
1 1488 ; MAKE_CONNECTION = Internal subroutine. called from DU_CONTROLLER_INIT and 
1 1489 ; USCONNECT F R, that establishes a connection t& the MSCP Server 
: 1? 3 n the intelligent controller. 
179 1692 ; INPUTS: 
: 1 3 RS => permanent CORP 
179 1495 ; OUTPUTS: 
1 14696 ; cement ee established one initial SET CONTROLLER cons rent st ics 
1 133 3 comm is sent to controller. Also an MSCP buffer and an RSPID 
1498 : are — or the connection. 
; : : 25. — include the fact that all registers, except R5, are 
1} qi 
SF GC 43 SF 4B 53 49 46 26 53 4 $6 CLASS_DRVR_NAME : ASCII = /VMSSDISK_CL_DRVR/ 
20 20 20 48 53 49 44 24 6 ‘3 ; 3B 188 1505 MSCP_SRVR_NAME : eASCII /MSCPSDISK / 
199 1 
199 1 HSTIMEOUT ARRAY: : Host timeouts for various controllers. 
199 1 8 ASSUME MSCPSK_CH_HSC50 EQ j 
199 1 ASSUME I3 EQ ¢ 
199 1 9 ASSUME MSCPSK"CM"RC25 EQ 
199 151 ASSUME aE i Hi EQ 4 
199 1 1 ASSUME MSCPSK"CM"TU81 £0 5 
199 151 ASSUME MSCPSK_CM_UDAS2 EQ § 
199 1514 ASSUME —3650 CM_RDRX EQ 
1€ 0199 1515 -BYTE T_ TIMEOUT ; Use default constant for HSC50. 
FF O19A 1 1 “BYTE 5 3 Long } meout for dedicated cqntret lor 
198 151 3; (UDA5O) with dual portable drive 
00 0198 1 8 -BYTE 0 3; Use zero for dedicated controller. (AZTEC) 
4 19C «151 -BYTE HOST_TIMEOUT ; Use default constant for Emulat 
19D 1 BYTE 3 pee zero or dedicated Hewes ons (TU81) 
FF O19E 1 BYTE 55 3 Long 3 mooye for dedicated controiler 
19F 1 § 3 A52) with dual portable drives. 
19F 1 BYTE 3 use zero for dedicated controller. (RD/RX) 
19 1524 BYTE 3; Patch space for expansion 
1A1 1525 BYTE 
A ! $ BYTE 
1A 1508 MAKE_CONNECTION: 
y PERMCORP_ v0 sCbRB = - =R2 3; Get CDDB address form CDRP. 
44 A2 8EDO is ! § POPL ay —XR Rcin⸗⸗ 3; Save caller's return in CDDB field. 
1AE 1534 108: 
1AE 1535 CONNECT DUSIDR,- 3 Entry point of Input Dispatcher Routine. 
1AE 1 § DU $0GDA- 3; Entry —— of jeetegren ispatcher. 
is 1 DUS ONNE ; Error e entry going 
1AE 1 : CD0B SYSTEMIOCR2), - + Destination SYSTEM ID. 
1AE 1 - 3; Remote station address. 
1AE 1540 ASCP_SRVR_NAME,- : MSCP server name. 
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MOVL Coosst CRB(R3) ; Get CRB address. 
MNEGL cRBSL DUE TIME (RTD ; Infinite time till next timeout. now. 
IN nit : Establish timeout routine t — 


TIMEOUT, 
(RASC TOUTROUT (RID serve for rest of controller 


Here we prepare to send a SET CONTROLLER CHARACTERISTICS MSCP Packet to 
2* ee controller over the connection that we have just 
esta ed. 


ALLOC_RSPID 
ALLOC"MSG_BUF 


ON 
1A 4 CLA 3 a _* ass driver name. 
1A cf SINT ITAL ute ae Beh ah Aa, 
1A 4 MIN 3 te 3 Min * tte —234 
44 #INITIAL_B bite - : Initial DataGram count 
1A 4 * 3; Block transfer priority 
1A $$ - 3; Connect data 
1A 4 {r2),- 3 Also pass CDDB address to CDTSL_AUXSTRUC 
; : — 3; Bad Response packet address 
Ie BLBS RO, 30$ ; LBS implies success, so branch around. 
Ie FERRER? ° ; Get CODB address in R3. 
1F 4 MOVL iD Er — CRB ad 
1F MOVAB $,Cre RF DOTROUT (RS); est abe sh tABE t" L as place to call, for 
3 § 3 _now, for ¢ wake 
1f ADDLS #CONNECT_DELTA,=- 3 Establish ed t me as a litte in 
1F 2 G*EXESGL-ABSTIM, = ; the future. 

CRBSL “DUET IME (RS) 

$9 RSB 3; Return to caller's caller and kill 

é 208 3 this thread. 

§ "MOVE att AUXSTRUC(R R3) 6Re ; R2 => CDDB. 

64 MOVAB CODD ‘ oo 2),R 3 Get permanent CORP address. 

65 SETIPL 4 Lower IPL after wakeu 

06 sage Loop back and try C ECT again. 

67 30S: aretten has been establishe d 

68 —S 10 5008 = ; Get CDDB address from CDRP. 

8 eqre p=R5, cddb=R1 

y MOVL R53, CDDBSL _CDT(R1) : Save CDT **2 (in perm CDRP). 

7 MOVL Re CODBSL~ _PDT(R1) : Save PDT addr 

3 MOVL Ree CpBSL_ “DAPCDT(R1) : Save CDT po» oe 8* “in DAP CDRP t 

a MOVL a 3 Now that CDT is saved, move cobs” addr. 

ig 

7 

: 

; 


— a ReSPonse 
ocate an MSCP byf ter (and also 
allocate a unit of flow control). 
If success, branch * 
Faroe Me expects R5 => CRB. 
I ue, ai * try to restart. 
= 


RO,50$ 
MOVL CDDBSL CRB(R3), R3 
BR DUSRE_SYN 
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35 50$: Here R buffer allocated. 
9 CLAL R1 First set Controller Characteristics 
3 with zero (i.e. infinite) host timeout. 
5 BS8B TCON_MSG Call to prepare MSCP command. 
38 SEND “scp Ras DRIVER ; Returns with end-message addr. in R2. 
BSBW" RECORD_STCON Record Controller Characteristics. 


1 6 | 
thon Pree 19be $9it2:06 LDRiveR.sReoubRiver.mar:2 "8 ff, 
We recycle the END PACKET and 


é RECYCH_MSG_ BUF é 
; thereby allocate a new send credit. 
RECYCL_RSPID ; We also recycle the RSPID. 


Determi the correct host *⁊Xxr interval. bd is the larger of 
HSTIMEOUT_ARRAYLcontroller_model] and the controller t geoyt nterval 
returned by the just completed Set Controller Characteristics. There is, 
however, one wrinkle. Zero represents an infinite timeout and therefore is 
larger than any other number. Also, the controller oh resey believes the 
host timeout *2 be infinite, as the result of the previous Set 
Controller Characteristics command. Therefore, no further action need be 
taken when the timeout interval is infinite. 


MOVZBL CDDBSB_CNTRLMDL(R3),R1 ; Get controller model type. 
MOVZBL HSTIMEOUT_ARRAY-1LR1J,R1; Get corresponding host timeout value. 
8 , ; If zero, branch ground. 
MOVZWL CDDBSW_CNTRLTMO(R3S), RO ; Get controller ; meout interval. 
60$ If controller timeout is infinite, 
use 2*.* infinite host timeout. 


51 26 A A 
51 sFF31 ore A 


50 24 AS 
51 63 1 

? F 
51 dO 
1110 
40 10 


CMPL 89 R4 ompare w HSTIMEOUT_ARRAY value. 
BLssu 55 Branch if HSTIMEOUT_ARRAY is Larger. 
MOVL RO, R1 Else, use controller timeout as 


host timeout interval. 


Sete Ge Ge Se Ge ee 
o 


BSBB PRP_STCON_MSG Else reset controller characteristics. 
SEND_MSCP_MSG DRIVER Returns with end-message addr. in R2. 
BSBB RECORD_STCON Record Controller Characteristics. 


RECYCH_MSG_BUF~ Ageia we recycle the END PACKET and 
hereby allocate a new send credit. 
RECYCL_RSPID We also recycle the RSPID. 


o 
o 
od 
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JMP @CDDBSL_SAVED_PC(R3) ; Return to caller. 
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; PRP_STCON_MSG - Prepare a Set Controller Characteristics Command Message. 
PRP_STCON_MSG: 


R1 Host Timeout Volve 
n => 8 buffer to fill 
R 


} 

1 

1 

1 3 PUSHL RI 3 Saye {agor tent register. 

164 INIT_MSCP_MSG : Initialize buffer for MSCP message. 
} 8* POPL rT ; Restore important register. 

1 8 MOVB #MSCPSK_OP_STCON,=- 3; Insert SET SONTROLLEG CHARACTERISTICS 
4 MSCP$B_OPCODE (R25 t opcode with NO modifiers. 

1 ? MOVW CDDBSW_CNTRLFLGS(R3),- ; Set host settable characteristics 

Hb § MSCPSW_CNT_FLGS(R2) ; bits into MSCP command message. 

1 : MOVW R1,MSCPSW_HST_TMO(R2) 3; Set host timeout into MSCP packet. 
16 § mova eoenesee Systane. 3; Transmit time of century in clunks. 
16 MSCPS$Q_TIME(R2) 

1 § MOVL CDDBSL_CRB(R3) ,RO > RO => CRB. 

1660 MOVZWL CDDBSU_CNTRLTMO(R3) ,~ (SPS; Pickup controller delta. 

1661 BNEQ 08 ; NEQ implies this controller has been 
1066 : _init’ed at least once before. 

1907 70$ MOVL #INIT_IMMED_DELTA,(SP) ; Else use compiled in timeout. 

1665 — ADDL3-—s (SP D+, - : Establish delta time for time out 
1906 “EXESGL_ABSTIM,- 3; to prevent against controller never 
166 CRBSL_DUETIME (RO) > responding. 

1888 RSB ; Return to caller. 
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HE one eT 10N $73 Po] 138 90:93:38 DRIVER. SRCJOUDRIVER.MAR; 2 a 
: 7 ; RECORD_STCON = Recoré dese from a Set Controller Characteristics end message 
F : 
BF 1 3; Inputs 
BF ! 3 “ig 2 => —33 End Message 
BF 76; C008 
BF 167 
BF 1 4 
BF 1679 RECORD. Bicone 
BF 1 » MSCPSW_CNT_FLGS(R2),- ; Pickup NON-host settable characteristics 
ce 1 CODBSW- ENTALE Ces cass : from END PACKET and save in CDDB. 
es i ; MOV MSCPSW_C MO(R2),=- 3; Likewise with controller timeout. 
¢ 1 4 CODBSW- ~ENTRUTRO (R35 
§ 8 mova MSCPSQ_CNT_ID(R2),- ; Also save controller unique ID. 

eC 16 CDDB$Q~CNTRLID(R3) 

2312 a3 06 €2 CE 16 $ BBSS #CODB$V_ALCLS i}: ; Branch if allocation class already 
4 1929 COOBSW_STATUSTR 90$ 3; set, and indicate it is now set. 
D 1926 ; {he 29288* class is about to be set for this device. The object 
DS 169 s to give gyory. Fe —J— chance for the value to be non-zero. 

50 43 00000000'GF D0 0203 169% hove —39 GL 3 Assume a local, single host 

DB 1695 Keeper stag) : controller 

05 28 43 02 11 D 1696 BBC anse CF_MLTHS 3; Branch if. a single host controller. 
‘ 169 —W — — 

50 43 04 42 QA E 1638 MOVZBL MSCPSB_CNT_ALCS(R2), 3; Get set centrot ter characteristics 
€5 1 9 coDBst ALLOCLS(R3) 3 allocation clas 

50 E64 A3 9 £5 1701 80S: MOVAB <CDDBSC_DDB - 3 Init loop through all DDBs. 
E 1708 -D0B$L CON INK>(R3) RO 
50 38 A0 0 E9 1703 82$: MOVL pp DBSL_CONLINK(RO), RO ; Link to next DDB. 
0 1 ED 1704 BEQL ; Branch if no more DDBs. 

3c AO i) EF 1705 MOVL CDDBSL_ALLOCLS(R3), - ; Copy allocation class to this 

F4 «(17 $ poesl. ALLOCLS(RO) 3 
11 ve 4 BRA es 3 Loop till no more DDBs. 
05 F6 17 } 90$: RSB 
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«SBTTL DU_REVALIDATE_DISKS = Revalidate previously online disks 


REVALIDATE” 


+ 
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DU_REVALIDATE_DISKS = Revalidate previously online disks 
Functional Description: 


vale routine supervises the revalidation of al' disks which once were 
valid (online) but which have gone offline due to a pennes ston 
failure. This routine is also called whenever the connection manager 
a shes to stall all disk 1/0 activ ty by fore ing all disks into mount 
verification. | first case s distinguished from the second by the 
CODBSV_QUORLOST bit in CDDBSW_STATUS being clear. 


For each device not glroods in mount verification whose UCB has the 
UCBSV_VALID bit set in UCBSL_STS, mount verification is invoked. 
Mount verification is started by feeding it one of the permanent 
CORP’s associated with the CDDB and an appropriate error status. 


J i Sy I, i, Ip i 


If mount verification cannot be performed on the device (for example 
the device is mounted foreign), then all ponies 1/0 requests for the 
device are located and terminated with SS$_MEDOFL, medium offline. 


This routine is only interested in getting mount verification started 
wherever possible. If mount verification can be started it will 
complete in one of the following ways: 


- A suitable alternate path will be found. This can happen even 
before a new connection is established for this CDDB. 


- The connection associated with this CDDB will be reestablished 
and access to the device via that connection restored. 


- Mount verification will timeout or otherwise abort. 
ALL of these cases are handled in DU_END_MOUNTVER. 


- Successful completion of mount verification (with RWAITCNT 
equal to zero) causes the UCB to be unstalled and 1/0 activity 
to be resumed. 


- When mount verfication completes successfully but the RWAITCNT 
is not zero, the UCB is not unstalled. That duty befalls 
whomever has bumped RWAITCNT. 


- If mount verification aborted, all —10 1/0 requests must 
be located and terminated with SS$_VOLINV. 


Synchronizing Device Revalidation After a Connection Failure 


For each UCB placed into mount verification, this routine increments a 
ounter in the CDDB which represents the failed connec tion. The UCB 

s also made to point to this CDDB. After reestablishin 
and petting for units the reconnection rout ne determines whether or 
not an uC s are still wa ting for mount verification via the new 
connec " 
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If no “CBs are waiting, the single step prosesetag CORPs active at the 
time tne connection failed begins immediately. Otherwise, th 


e, the 
reconnection thread exits, to wait for the pending mount verification 
operations to complete. 


As a UCB completes mount verification, the end mount verification 
An ween ihe CD0B pointer setup y this routine to locate the CDDB 
which is waiting for mount verification completion. The counter of 
waiting UCBs in that CDDB is requced by one (representing the UCB 
which just finished mount verification). When that count reaches zero, 
the reconnection logic thread is resumed at RESTART_NEXT_CDRP. 


In this vey all the CDRPs active at the time of the connection 
failure (which may have been due to a insane server) can be retried 
one at a time after the connection has been restored and the disks 
(or UCBs) validated by mount verification. This is an important 
element of error recovery for MSCP devices. 


N.B. CORPs for disks failed over to an alternate controller do not 
participate in this gingte step retry mechanism, but by treating all 
types of mount verification completetion equally, waiting 
unnecessarily for a failed over disk is avoided. 


— — — — —— 


Since this routine is gottes from both reconnection processing on 
controller initialization and since having RESTART_NEXT_ CDRP entered 
due to controller initialization is very undesirable, this routine 
does not set UCBSL_WAIT_CDDB when the CDDBSV_INITING flag is set in 
the input CODB. This effectively eliminates the chain of events which 
would cause RESTART_NEXT_CDRP to be called. 


Consider a few cases: 


a 


The connection fails for a device which has been chugging along and 
has some requests outstanding. The outstanding requests are placed on 
the CDDB restart queue. Mount verification begins throwing requests 
t the driver. These requests complete quickly because no connection 
S sctive and no ol serne e path is available. i UCB points to the 
CDDB which it turn is waiting fe  ount verification to complete for 
the UCB. When the connection is restored, the reconnect thread notices 
the waiting UCB as exits before restarting the pending coats his 
leaves the wait count bumpped by » one for the mount verification and 
0 
| 
| 
| 


one for the incomplete reconnection thread. When mount verification 
compieres. the waint count is reduced by one to one, but this is not 
sufficient to unstall any pending requests (those received while the 
connection was broken). Eyentus l 

revs (ne finds no more waiting UCBs on the CDDB ane the single step 
delivery of requests begins. Once all outstanding requests (from the 
time of the connection failure) have been singly passed to the server, 
the wait count is reduced by one to zero, this allows the pending 
requests to be starting (in parrallel mode). If the device can 
failover to another server or if mount verification aborts, 
outstanding requests are removed from the CDDB restart queue and the 
end of mount verification processing is performed as described above. 


y. the end mount verification 


it mount verification were already in progress when the connection 
ailed, there is no need to begin it again for recovery after the 
connection reforms. Also, the CDDB need not wait for mount 
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vert icet ton to complete on the new connection before sprerting * 
the delivery of eutetenela requests. The only possible Sutetene 
est is from on wer i? cation. ALL Tie’ tt cpquests are on the 
pendin ng 1/0 ef he connection fa mount ver fication 
/0 reqyest * act ve or inactive. If it” off v9 5 jt 5 yet be 


— Bd gers process g with a status of SS$_M 


act next attempt to make a mount (S$ meborL. tutte will 
be caught by the start 1/0 routine. 
Inputs: 
R3 CDDB address 


Implicit inputs: 


CODBSL_UCBCHAIN(R3) 


CBs on this connection 
CODBSW_STATUS(R3) 


TING set if called from controller 


on. 
RLOST set if called to force mount 
on after a quorum loss. 


R3 CDDB address (unchanged) 


RO = R2, and R4 - RS are destroyed. 
ALL other registers are preserved. 


Implicit outputs: 


RRR HAHN ———— — 8— 
DO HF NNN 


| 
| 
| 
| 
Outputs: 
| 
| 


CDDBSL_WTUCBCTR(R3) incremented once for each UCB waiting for 
mount verification to complete. 
UCBSL_WAIT_CODB of each waiting UCB is made to point to the 
input CDDB. 
DU_REVALIDATE_DISKS: 
55 53 FFFFFF84 BF C1 ADDL3 #<CDODBSL_UCBCHAIN - ; Get ‘previous’ UCB address. 
-UCBSL _CDDB_ LINK>, R3, R5 
NEXT_REVAL_UCB: 
55 00c4 C5 20 MOVL UCBSL. CDDB_LINK(RS), RS : Link to next UCB on conn. 
6B 1 BEQL REVAL” STARTED ; Branch if no more UCBs 
F464 AS 08 €E1 10$: BBC #uCBS)_VALID, UCBSL_STS(RS), : Does UCB need revel (aes tent 
NEXT REVAL_UCB : Branch if no revalidation. 
EF 68 AS 08 ~ €0 BBS sucesy MSCP_MNTVERIP, - : Is mount verification already 
UCBSW_BDEVSTS(RS), - ; in progress? 
pai REVAL uCcB ; Branch if mv in progress. 
oft 12 a3 09 €1 BBC DDGSV UORLOST : Branch if not quorum lost 
tobe W VeTATUSCRSS, “308 > processing. | 


For quorum lost processing, this rout ine is gates for all disk 
CODBs known to the system. It must then decide whether or not the 
UCBs hanging off those CDDBs aust have their I/0 requests stalled. 
The rule is that any disk accessible from more than one host must 
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: have its 1/0 stalled. The following tests implement that rule. | 

05 28 AS) 02 650 15 1884 BBS #ASCPSV_CF_MLTHS, = ; Branch if this is a multi- 
1A 1885 CDDBSW_CNTRLFLGS(R3), 25% ; host controller. 

—£0 3¢ AS) 04 11 1A 4 § BBC - ; Branch if disk is not 
iF 1 UCB$L_BEVCHAR2(R5), = ; dual-pathed. | 
if } 3 NEXT _REVAL_UCB 
1F 4 — 258: ASSUNE UCBSV_ CLUTRAN GE 16 ; Since this disk needs MV after 

66 AS 20 88 if 159 BISB #<UCBSM_CLUTRAN @ -16>, - 3 a VAXcluster state transition, 
2 ! 3 UCBSL_STS+2(R5) ; set UCBSV_CLUTRAN. 
1894 30$: : Mount verification needs to be galled for this device (or UCB). | 
! 3 ; Understanding what follows requires several pieces of information: | 
1 39 : 1. Mount verification returns to its caller only if it cannot 
1898 3 perform verification for the UCB submitted to it. for 
1299 3 example, control is returned to the caller if the device is 
1900 ; not mounted. 
1303 3 as A other cases, mount verification returns to its caller's 
3 caller. 
3 1908 ; 3. If mount verification is possible, EXESMOUNTVER will call the 
S$ 1904 : driver's mount verification routine, DUSMOUNTVER, which is 
0 1905 3 supposed to process the IRP. Since this IRP is a Gunny one 
h) 1906 ; of the permanent IRP/CDRP pairs associated with the CDbB, 
190 3 DUSMOUNTVER will do mount verification book keeping and then 
1908 ; SB; since no special action is required. 
1909 :; 4. Mount verification could result in a failover, which would 
0 1910 3 alter UCBSL_CDDB_LINK. Since the UCBs on the current 
0 1911 ; connection are the only ones of interest, the next UCB address 
83 1316 3 is preserved on the stack across the call to mount verification. 
191 ; 5. Setting the UCBSM_SUPMVMSG bit causes those mount verficiation 
0 1914 : messages associated with a successful mount verification 
1915 3 operation to be suppressed. If something goes wrong or the 
1316 3 mount verfication operation nears the timeout stage, these 
131 3 messages will be output (as usual). 
00c4 65 ~OD 1319 PUSHL UCBSL_CDDB_LINK(RS) ; Push next UCB address. | 
64 AS 00040000 8F C8 1920 BISL #UCBSA_SUPAVMSG, UCBSL_STS(R5) ; Suppress mount ver. messages. 
BB F 1921 PUSHR #*M<R3,R5> 3; Save CDDB and UCB addresses. | 
53 00B8C CS 00000070 BF C1 1 8 ADOL3 #cDDBSA PRIIRP, a3 ; Get a permanent IRP address. | 
50 O14 8F 3¢ ; 19 4 MOV ZL #$S$_REDOFL, RO ; Setup a suitable status. | 
54'AF oF 4 13 § PUSHAB 6*50$ : Setup caller's caller 
00000000"GF 16 0345 19 SB G*EXESMOUNTVER ; Start mount verification. | 
4B 19 : ; Cannot do mount verification 
| 
DS 48 19 ? TSTL ~° (SP)+ : Pop caller's caller addr. | 
40 19 § POPR #*A<R3,R5> ; Restore CDDB and uss addrs. 
es 0 4— 19 BSBW DUTUSTERMINATE PENDING ; Terminate all pending 1/0. 
1 11 H 13 : BRB $ ; Loop through all UCBs. | 
? 13 § 50$: : Mount verification is in progress 
28 84 af 1938 POPR @*M<R3,R5> ; Restore CDDB and UCB addrs. 
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DBL_WAIT UCB: 
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NRO OCONOA NEW OOOO UE 
Sete 


BUG_CHECK DISKCLASS, FATAL 


#<CODBSM_ INI TING * 
—8 OR Os]. 
STAT US (RS) 


f call 9 from controller 
nit all zation or quorum 
lost processing, skip this 


Check o of double waiting UCB. 


sorted ous error. 
Count oe t 


cB. 
Store waiting Copa address. 
Get next y 
If there is a UCB there, go 
processs it. 


. galt ⸗ 


ucB 

DBL 

C —* — *.2 — 

, UCBSL_WAIT_CDDB(RS) 
10 


; ALL UCBs on the connection have Geen processed, one sa | or the 
; other. Control is now return th $s 
; (or UCBs) complete mount verification DUSMOUNTVER will receive 
3 control and perform end of mount verification processing. 


REVAL STARTED: 


s routine’s caller. devices 


: Doublely waiting UCB; fatal 
3 error. 
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DUSMOUNTVER 
Functional Description: 


The disk clogs @r iver and mount verification are in bed together. 
They are so intimately related that one of them is most certainly 
“with child’ and nuptual annoucements will soon be made. 


In addition te the usual services performed by mount verification, the 
disk class driver calls for its assistance in restoring access to 
olase, vest due to the various failure conditions which can occur with 
8 server. 


The following is a List of reasons why this routine might be cailed: 


- told is mount verification due to appropriate status is a 
normal [/0 request. This probably is the result of the a 
change of state in the drive. Hopefully, mount verification 
wats rosters the drive to the online state and work can 
continue. 

- completing mount verification for the above. 


- atert'ing mount verification to ‘‘remount’’ a disk which was 
automatically dismounted due to a connection 22* This 
is done by force feeding mount verification one of the 
connection permanent CDRP's. 

- completing mount verification for the above. 
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76 The first two cases represent pretty much normal mount verification. 
At least, they are the kind of mount verification one would expect to 
encounter for other disk devices. The second two cases are a special 


usage of mount verification by the disk class driver. 


DWOOODOG OOO OOO 090009 09 09 0909 SI NINN NIN NSN NOAA AAAS 


NA ASN SO — WIN 3S OD NA NEW OOD NAMES WN" OOOO 


Be Se Se Se Ge Be Ge Se Se Ge Be Se Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Sse Se Se Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Sse Ge Se Ge Ge Ge Se Ge Ge Ge Se 
+ 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


2 SSNS 
SOOO OOOO OOS OOOO SO AAO OO 
RIP IP IPIPIPINIMININININININININININININY 
————— 


WDOOOOOOOOOODOOVOOOODODOOOOOOOOOOOOOOOOO 


Since the connection lost processing done when mount verification 
calls the driver is nearly identical to normal mount verification 
processing, all that work is performed within this routine or its 
servers. fo fully understand some aspects of this routine, it may be 
necessary to review the DU_REVALIDATE_DISKS routine. 


RWAITCNT Handling: 


sats routine increments RWAITCNT(ucb) when begtaning mount 

verification for the first time and decrements it when mount 

verification is ended. While RWAITCNT is non-zero, all 1/0 requests 

are added to the 1/0 queue hanging off the UCB. Thus all 1/0 js 

erel jee until the mount verification completes. The mount 

yer c gion IRP is not stalled because the start 1/0 routine handles 
specially. 
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The code on this page acts as a simple dispatcher for the beginning 
and ending mount verification cases. 


Inputs: 
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Outputs: 


USMOUNTVER: 


TSTL 
BEQL 
BRB 


SN 0 22— 
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For beginning mount verification: 


IRP address 
UCB address 


zero 
UCB address 


R3 
DU_END_MNTVER 
DU-BEGIN_MNTVER 


BATHS 


For ending mount verification: 


ALL registers are preserved. 


AX/VMS Macr 
DRIVER. SRCIDUD 


3; Is this endin 
; Branch if end 
3; Fall through 
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mount ver.? 
ng. 
if beginning. 
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-SBTTL = DU_BEGIN_MNTVER = Begin mount verification 


aa 
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DU_BEGIN_MANTVER = Begin mount verification 
Functional Description: 


This routine is called wneneyer mount verification needs to present a 
new 7S the driver to be feneqsoreg and restarted after om mount 
veri at on —A If th sa rmal"’ mount verification 
operat nn ~~. is —* inte the OF peng ng 1/0 request queue, ordered 


a7 oe However, P is one of those peraenen tly 
° tached t to. ° 2386: it is yous? At Ae, In any oven f. a = Noss is 
—8* s its a Ay | d because of mount verification 
UuCBSV SastP AN NIVERIP s se 
Inputs: 
a IRP address 
Re UCB address 


Implicit inputs: 


IRPSL_DUTUFLAGS(R3) CDRPSV_PERM bit set to indicate presence of 
one of the permanent IRP/CDRP pairs belonging 
to the connection 


IRPSL_SEQNUM(R3) a ony cally increasing 1/0 request sequence 
numbe 
UCBSL_IOQCF/BIL (RS) 2* ier queue of pending 1/0 requests for 
$ un 
Outputs: 


RO and R1 are destroyed. 
ALL other registers are preserved. 


Implicit outputs: 
UCBSWU_RWAITCNT(RS) jncronented if mount verification not already 
UCBSW_DEVSTS(R5) Ucasy PASCP. _MNTVERIP bit set 

Side effects: 
The IRP pointed to by R3 is Linked into the pending 1/0 request queue. 


15$: BBS @CORPSV PERM, - 


18 ooao cs g i 
IRPSL *DOTUFLAGS(R3), 508 


Branch —— & CORP 
used to start special 


purpose mount verification? 


U_BEGIN_MNTVER: 
50 68 AS 01 08 EF EXTZV @#UCBSV_MSCP_MNTVERIP, #1, - 3 Get previous mount ver. bit 
uCBSw BEvSTS(RS), RO : for an upcomming sanity check. 
03 68 AS 08 t2 BBSS aces MSCP mi VERIP - > Set MSCP mount ver. in 
UCBSW_BEVSTS(RS), 158 > progress and branch if already 
INCW UCBSW RWAI TENT (RS) 3 set. Else, bump wait count. 
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R = Begin mount verifica 


5 208: 
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[= 
bed 


w 
o 
Ad 


: 


: “Wormal” mount verification 
MOVAB 


MOVL R1, RO 
MOVL A, AT 1OQFL(RO), RO 
CMPL 
BEQL 
CMPL — le 

Rat nse QNUM(RS) 
BLSSU 08 
INSQUE (R3), @IRPSL_100BL (RO) 
RSB 
: Special purpose mount verification 
BLBS RO, 999% 
RSB 


BUG_CHECK DISKCLASS, FATAL 


"SrSEp=19be $9iteib6 


<UCBSL_10QFL-IRPSL_IOOFL>(RS), ~ 


AX/VA 
DRIVER S 


0 v04-00 
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Cfsches s Baad, 
Copy ? sthead address. 


Link to next genging 
Reached end o i. yet? 
Branch if end o 

Does new IRP belong here? 


Branch if IRP doesn't belong. 


Insert new IRP between 
previous one current IRPs in 
pondins 1/0 queue. 

eturn. 


Branch if nested mount ver. 
Otherwise, exit. 


Initating special mount ver. 
when mount ver. is already 


; in progress is a no no. 


ror 


v0: 
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1 } § — -SBTTL = DU_END_MNTVER = End mount verification 

B1 3108: 

} ! 3 DULEND_MNTVER = End mount verification 

+ t Functional Description: 

+ , : This routine completes mount verification processing. 

B1 2135 ; The mount verification in progress Iꝛa. is stored and the wait * 
21 2156 ; is “inte ’ one to 9 fset its being raised one when mount verificat 
jars 3 was tiated. mount verification failed ve prema the disk back 
B1 dl 3 3 online, all Hatees ore aborted with SS$_VOLINV to indicate that the 
+ 1? 5 volume is no longer val 

B1 814 : poet. a etatus of ghe wait count and the wait count d bit must 
B1 142 ; —22** ate ver, ne status of the current connection to the 
BI 2145 ; RSCP. server. Mount veri seat on, fail ever ver reconnection processing 
B1 2144; “ Rs ordinates, | of each other. at in $ point they 
B1 2145 ; be coordinated. If *21 qveseont ng s in 58eæ the 
31 138 3 weit count must be 7* by af least one and the wait count d 
B1 147 ; bit must be set. I! SSamberion OF processing is * in Bumped bie musi the 
31 8 3 wait count must not be ed and the wait c must oe 
BY 2149 ; clear. During @ reconnection attempt, the wait yh must be bumped 

Bi «2150 ; from the beginning of the attempt to the end of the attempt, and this 
B1 1 3 routine, since it reprecents the last ériy r routine in a mount 

B1 1 3 verification attempt and since mount verification is the primary 

Bt «2155 ; failover tool, eve } coore nate mend) ine of the wait count. 

41 156 ; Reconnection modification of the wait count is handled in 

+ ! $3 DUSCONNECT_ERR and END_SINGLE_STREAM. 

B12 > ; If mount rely bee oben *2* jn bringing he disk back online, 

B1 1 8 3 this routine perf vee the end of t verification processing 

34 1 3 necessary te tall attempt J ngle step CORPs active when a 

31 199 3 connection ' ailed yn l iske. tor UCBs) on a given —8 are made 
B1 1 3 valid by mount verification. Thi : tehens is detailed in the 

+ 166 3 description of DU TREVALIDATE DISKS 

a1 184 : Inputs: 

at 6 ; RS UCB address 

1 : Implicit inputs: 

B1 2170 ; UCBSW_RWAITCNT(RS) Geunt ef the reasons for stalling 1/0 requests 
B1 2171; zero aol ies requests can be restarted) 

+ 176 3 UCBSL_IOQCF /BIL(RS) *58* for queue of pending 1/0 requests for 
1 17% ; UCBSL_STS(RS) it uC utesy _VALID clear if mount verification 
BI 1% ; UCBSL_WAIT_CDDB(RS) address 0 a CDDB waiting for mount 

+ 4 3 verif 73 to complete, or zero if none 

1 173 : Outputs. 

BI 18} : RO through R4 are destroyed. 

B1 2182 ; ALL other registers are preserved. 
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S Implicit apa 


ame 
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AE UCBSV_SUPMUMSG bit clea 
tal DBRS) sereed 


ucs ALTCNT i decremented 
uce 1 “0 Vv ü; UCaSV. MSCP_MNTVERIP bit . 
Codos 


DU_END_MNTVER: 


AS po0s F OCA CL SUPMVMSG, yegse -STS(R5) 3; Make next mount ver. noisy. 
68 A itd ef A H CW aye tte MSCP_MN —X clear mount veritication 
BevsTS(Rr5) : in progress bit. 


DECW —16B “RUALTONT (RS) Reduce wait count. 

BBC #UCBSV_VALID, UCBSL_STS(R5), 908; Branch if mount ver. failed. 
verification was successful. 
JSB G*SCSSUNSTALLUCB 
CBSL_WAIT_CDDB(RS), R3 


56 45 87 
2464 45 08 €E1 


00000000°GF 16 
53 000 C5 
ie 38 


If possible, start pending 
Get wait CDDB address. 
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EQL ; Branc none 
cc 04 CLAL UCBSL_WAIT_CDDB(RS) 3; Else, clear yaitin 408 
EA 8? DECW 608 WTUCBCTR(R3) 3 Decrement wa iting OcB count 
3 g BNEQ ; Branch if UCBs still wa iting. 
08 12 A3 B BBCC seat BSTATWAT. & 3 Oren h if connection is not 
STATUS(R3), 80S 3 ting to restart CDORPs. 
5 4 PUSHL 3 Else, Save U 
0829 BSBw RESTART -NEXT_CDRP : Begin singte —9 CDRPs. 
5 BED POPL 3; Restore UCB 


80$: RSB 

3; Mount verification was not successful. 
90$: BSBW SUTUSTERRIMATE PENDING 

BRB $ 


Exit. 


Terminate all pending 1/0. 
Rejoin end mount ver. code. 
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‘ «SBTTL DUSDSE_FDT = Data Security Erase FDT Routine 


DUSDSE_FDT = Data Security Erase FDT Routine 
Functional Description: 
This is the FDOT routine + nt Data Fecur tty Erase opsseqion 
suppor rted by MSCP speakin dey ces. The b byre e count $s stored in 
IR —— The starting: logical block (P3) is stored in IR 
LS transfered to EXESQIODRVPKT, thus queueing the M0 request 
: to the driver's start 1/0 routine. 
Inputs: 
P IRP address 
P2(AP) oree count 
PS(AP) starting logical block 
Implicit inputs: None. 
Outputs: 


IRPSL_BCNT(R3) <== P2(AP) <byte count> 
IRPSL_MEDIA(RS) <== P3(AP) <starting logical block> 


Implicit outputs: None. 
Condition codes: None. 
Side effects: 


Control is transfered to — TOW EE thus queueing the 1/0 request 


to the driver's start 1/0 routine. 


USDSE_FDT: 


- IRPSL_BCNT(R3) ; Setup erase byte count. 
* IRPSL~MEDIA(R3) : ¢ getup erase starting LBN 
LODRVPRT Send request to STARTIO. 
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DUSSHADOW_PACKACK_FDT = Packack FDT for Volume Shadowing 
Functional Description: 


This is one of the FDOT routines used by the disk class driver for the 

pack acknowledge (10$_PACKACK) function. It processes all —* 

28 ng in some way to shadowing. There are two possible syeee of 
he nea oy requests which con titute a @ shadow set, and requests which 
ring @ shadow set master unit online 


Requests to constitute 4 —524 t MUST ALWAYS be identified by the 
presence of the IOSM_SHA modi? er. For such requests, the begal ity 
of the request is todted” 9 example, a shadow set master unit may 
not be a member of another shadow set, and ony controllers which 
support qhegowing ** 14 shadow sets. f the shadow set formation 
request is illegal, SS ey ftt 10 FUNC status is returned. Otherwise, 
shadow volume set speci nformation is copied to the IRP where it 

will be available —9 be copied into the MSCP command packet by the 
start 1/0 routine. 


The —— information is copied to the IRP: 
e unit number to be assigned (used) for the pseudo-unit 
hh we Be the shadow volume set, P4. This unit number may 
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9 or may not have the MSCPSM_SHADOW bit set, to Mindicate that 
9 the uni * — shadow unit. This routine will set it 

9 automatical 

94 - * starting” LBN and ble k count of the gree to be excluded 
95 from any catchup seer, F 3,0" p respect twat ely. 

9 - the catchup copy specs -_P5. This is one of the va 

4 specified for the MSCP ON INE command COPY ' PEED ee iad. 


Requests to bring a shadow set master online have two variants which 
are vepae ities +7 whether or not the IO$M_SHADOW funce tee modifier is 
set. ot is set and the shadow unit number, ye matches 
the 40 8 — unit number, then this is a * request to bring a 
shadow set master online. Otherwise, it is an a tempt o include a 

hadow set master as a ——— of another shadow which is illegal. 
if 108m M_SHADOW is clear by th the ofiscP unit number SMecses that this is 
a shadow set master, the I0$M t must be set for proper 
processing to occur within the sasce —— Therefore, this routine 
— —3 SHADOW and prepares the IRP for a proper MSCP shadow online 
request. 


19 This routine does not terminate FDT process ing. The FDOT must contain 
\§ a second ontey for PACKACK which follows the entry for this routine 
! —3 which posts the IRP for delivery to the start 1/0 routine. 
13 Inputs: 
8 R IRP address 
\8 k UCB address 
1 P2(AP) exclusion area block count 
$9 PS(AP) starting bog 4 block number for the exclusion area 
P4(AP) shadow unit number 


— — — — — 


17 | 
—B DUBSHADOU PACRACK PDT = Packack FOT for ‘SaSEP-19B6 Soites06 YORIVER.saeibUbRiveR.man:2 2% 24), 
PSUAP) copy speed | 
IRPSW_FUNC(R3) 1/0 function code and modifiers 
Implicit inputs: 


**88 CODB(R CDDB address 

cooes@ cen FRCELGS(CDDB) —* CF _SHADW set to indicate controller 
support ts Shadowing 

UCBSW_MSCPUNIT(RS) ns t number; Suscpsy SHADOW being set 


implies that this is a shadow set master and 
not @ tandidate for shadowing 


Outputs: 


RO and R1 are destroyed. | 
ALL other registers are preserved. 
| 
| 
| 
| 


IRPSL Rim <== Spd <exclusion area block count> 
IRPSL_-MEDIA(R3) <== P3( <exclusion area starting LBN> 

IRPSL- “HED IASC (RS) <== P4(AP) .or. MSCPSM_SHADOW <shadow unit number> 
IRPSW_BOF F (RS) <== PS(AP) <copy speed> 


N.B. the my field usage conventions used above are effective solely 
within this driver. 


Implicit outputs: None. 
Condition codes: 


SSS_ILLIOFUNC returned if specified unit cannot be a shadow set 
member 


Side effects: 
This routine exits with an RSB. This means that another FDT onary for 
PACKACK must exist following the entry for this routine in the F 


USSHADOW_PACKACK_FDT: 


De ee ee et et en be ben oak al onl ak al al “al al al ah Ab Ab Ab ah Ab ab Ab Ab Abe dl ee ot et et et at et et nt oe 


since a te truce Dat — ——————— — 


2A 20 43 (06 BBC #10$V_S 3 Is this a shadow packack? 
IRPSW mitratt ie 3 Branch if not shadow packack. 
51 OC AC 8000 8F BISW3 #MSCPSM SHADOW, Be tap), R1 3 Get Q10 shadow unit number. 
ASSUME MSCPSV_SHADOW EQ 1 
50 00D4 3 MOVU yeas ASCPUNITCRS)- RO : Get MSCP unit number. 
BLSS : Branch if shadow set master. 
© AC MOVZ2WL P2(AP), IRPSL_BCNT(R3) ; Plant exc. area block count. 
A AC VL PS(AP), IRPSL_MEDIA(R3) ; Plant exc. area starting LBN. 
A AC MOVW PS(AP), IRPSW_BOFF(R3) : Plant catchup copy speed. 
3c aS 51 MOVW 1, IRPSL_MEDTA+4(R3) : Plant shadow master unit no. 
18 BRB 70$ : Exit routine. 
51 8 40$ CMPW 80 : Is Q10 shadow master right? 
BEQL 3 : If right. process request. 
C BRB 9% ; Else, error. | 
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7 
50$: ASSUME MSCPS boy te.) 
MOVW prose Su ASCPUNIT §5}° RO 3; Get mSCP ynit number. 
BGEQ ; Exit routine if not a 
55$: ASSUME erst 8 L.BCNt 99 IRPS$W_BOFF +2 3; shadow oat master 
CLRO RP : Else, i tiatize. iRP for a 
5 CLRL IRPSL~ REDIA 3 shadow set master online. 
$ MOVW RO, ire L TEDIA‘G (RS) 3; Plant shadow master unit no. 
3 70$ MOVL UCBSL Cong (83) RO ; Get CDDB address. 
BBC #MSCPSV_CF_SHADW : Does controller $hadow? 
30 CDDBSW VENTREFLGStROD, 99$ : Branch if no shadowing. 
5 80S: RSB : Continue FDOT processing. 
3 3; ERROR - this unit cannot be a member of a shadow set. 
38 998: Sa #SS$_ILLIOFUNC 3; Set error status. 
9 GAERESTINisMIOe * ; Complete 1/0 request. 
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~SBTTL START 1/0 
-SBTTL = Out of main Line code 


Handle device which is in mount verification. 


R35 UCB address 
RS CORP address 


START_MOUNT_VER: 


This is a request from mount verification. Since mount verification 
gyeren ees that the volume is valid ogtere presenting requests to 

he drivers, UCBSV_VALID one s‘eer s cause for immediately 
terminating the request with SS$_VOLINV. Presumably, mount 
verification will pickup the pieces and retry the mount verification 
operation from the top. To avoid unnecessary hangs, the conditions 
which would prevent the IRP from being grecesses are tested. If any 

a 


such condition exists, an attempt to lover to the alternate path 
will be made. If that succeeds, the request will be processed on 
the alternate path. If the failover fails, the IRP will be 
immediately completed with a SS$_MEDOFL status. 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge 
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VNOT FT Ow— PHESMDDAPAOPAOASSASSSASOAOSSASSSISASSOSSS OF 


32 64 43 08 11 BBC #UCBSV vate - 3 In mount verification, valid bit 
UCBSL_STS(R35, 199$ ; should always be set. 
28 AS 4 CLRL CORPSC_RWCPTR(RS) ; Clear wait count pointer. 
50 68 AS O01 08 EF EXTZV #UCBSV_MSCP roth lt - ; Get mount verification in progress 
8 #1, UCBSW_DEVSTS(R3), RO; bit. 
3 13 999$ ; It had better be one. 
02 68 A3 A €1 8 BBC #UCBSV_MSCP_WAITBMP, - ; Is wait count bumped? 
UCB$W_BEVSTS(R3), 16$  : Branch if wait count not bumped. 
50 66 INCW 3; Increment expected wait count. 
56 43 50 81 108: CMPW RO, UCBSW_RWAITCNT(R3) ; Is wait count as expected? 
OA 12 BNEQ 3; Branch if not as expected. 
50 0080 C3 dO MOVL UCB$L_CODB(R3), RO : Get CDODB address. 
06 12 A0 O07 €1 BBC #CDDBSV_NOCONN, - 3; Is there a connection? 
CODBSW STATUS(RO), 105$ ; Branch if connection present. 
£690" 30 8 90$: BSBW OUTUSFRILOVER_UCB ; Try failover to alternate path. 
08 5 E8 BLBS RO, 105$ : Branch if failover succeeded. 
51 64 CLRL R : Init second IO0SB longword. 
ALT_REQCOM ; Complete mount ver. request now. 
ae 105$: BRB DU_RESTARTIO : Branch assists. 
0110 31 199$: BRW VOCNOTVAL 


999$: BUG_CHECK DISKCLASS, FATAL ; Received mount verification IRP 
3 when mount verification was not 
: in progress. Somebody blew it. 


; Handle device with 1/0 requests stalled. 


:  R3 UCB address 
: R5 CORP address 


; For any one of several reasons requests on this UCB are stalled 
3; If this is a mount verification, presunedty mount verification is in 
3 progress which would stall this UCB. So go process the mount 
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12 68 43 060 60 8* 


Q 
BBC #IRPS$? ; Volume not valid: branch if this 
C ; request is not a physical function. 


4 
4A 

OA CA AS 08 €1 i . ; 
MOVL  UCBSL_CDDB(R3). RO : Get CDDB address. 


50. O0BC C3 00 
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—W = Out of —3*. Line code weit 90:92:36 DRIVER. SRC JDUDRIVER.MAR; 2 . (1) 
o3t i : verfication IRP. 
494 26 8 : Orberutes. determine whether or not there is any hope that this IRP | 
494 245 3 will work when the UCB becomes unstalled. If mount verification is 
494 rh 3; in progress, the volume is still valid, or the request if a physical 
494 1 3; function, then assume there is hope. Otherwise, terminate the 
*8 8 ; request now with SS$_VOLINV. 
494 2664 : R3 UCB address 
re 8 3  R5 CORP address 
8 IO_STALLED: 
BD CA AS OD £0 0494 $3 BBS #IRPSV_MVIRP, = ; Is this a mount verification IRP? 
499 0 CORPS$W~STS(R5), = : Branch if mount verification IRP. 
499 2471 START MOUNT_VER 
1¢ 68 43 08 650 (0499 3 BBS #UCBSU_MSCP-MNTVERIP, - ; Is mount verification in progress? 
49E 7 UCBSW_BEVSTS(R3), - : Branch if mount verification is in 
74 QU ug IRP 3 yreqrens- 
17 64 43 08 CEO 69649 75 BBS #uces? VAL Ip - 3 Is the volume still valid? 
4A id: UCBSL_STS(R35, - ; Branch if volume is valid. 
7 EUE 
78 
49 
: 
i 


X 
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U 

BBS #UCBSD_MSCP_PKACK, - : Branch if a PACKACK is in progress. | 
| 


03 12 A0 O07 €1 048 BBC #CDDBSV_NOCONN, - ; Is there a connection? 
487 CODBSW STATUS (RO) , - : Branch if connection present. 
O0E6 31 8 90$: BRw VOLNOTVAL : Else, kill the request now. 
4BA 189 QUEVE_IRP: 
50 B83 AO AS OE O4BA 2490 INSQUE CDRPSL_IOQFL(RS), - ; Queue IRP (based upon CDRP address). 
4BF 491 @UCBSL_10QBL (R3) 
05 O4BF 249 RSB 3; Then discontinue processing on this 
stp *8 3 request. 
rt: 8 3 Handle class driver reference to a locally connected device 
C 49 : R3 IRP address 
rt: 8 RS UCB address 
4C 500 START_LOCAL DEVICE: 
55.  OOAB CS DO O04C 501 move UCBSL_2P ALTUCBCRS) . RS ; Get local UCB address. 
50 ; AS 00 04C ¢ MOVL IRPSL-MEBIACRS), RO 3 Get logical block address. | 
00000000 ' GF 16 4C9 JSB G*1OCSCVTLOGPHY ; Convert it to a physical address. 
00000000'GF 1 4CF 4 JMP G*EXESINS! 3 Go hand this IRP to local driver. 
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Dd § -SBTTL = Start 1/0 entry point 
4D DU_STARTIO: 
4D ASSUME UCBSV_BSY GE a 
65 AS 01 BA D BICB #<UCBSM_BSY @ -8>, - : Undo bit setting se that multiple 


4D UCB$W_STS+*1(R5) ; IRP's can be start 


4D 1 
4D 1 3; If this UCB indicates that the device is a local (non-MSCP) device 
409 1 : hat has also been neds available to us 4. 1) dual 23543 and 
d9 14 3; 2) an MSCP server on the node to which it is dual ported, then 
rt 1? 3 shunt this IRP to the local driver. 
3c AS) 08 83 d9 13 BITL #DEVSA : {s sete 8, class driver path to a 
40D 18 UCBSL ASEVCAAR(RS) ocal device 
€1 12 rt 235 BNEQ STARTO LOCAL _DEVICE + Branch if —3 a path. 
4DF 2521 : Initialize CORP fields. 
4OF 5 
50 60 a3 9 40F 25 : MOVAB IRPSL_FQFL(R3), RO ; Get address of CDRP portion of IRP. 
2 2 i) 4E3 ; 4 MOVL R5, . ; pove UCB address. 
0 oO 3 5 MOVL RO e CORP address. 
4E9 25 6 ASSUME CAPs. CD_ TYPE EQ CDRPSW. CORPS E* 
4E9 25 ASSUME CDRP let Q CDRPS$W"CORPSIZE+ 
08 AS O839FFAO BF D0 rth : 8 MOVL a <IPC$ sts 9245" 7 initio: fae CDRP size, type and fork 
! : elds. 
4F1 530 ' <corPsc Co100r ea? es > 
4F1 1 TA CORPSIZE 
4F ; ASSUME CORPS fo CDRPSL _MSG_BUF +4 
1C AS 7c 4F1 CLRQ CORPSE It Tur (RS) Prevent Spurious DEALLOC_MSG_BUF and 
gore : 4 ; * EALLOC_RSPID calls 
2C AS D4 04F4 5 CLRL CORPSL_LBUFH_AD(RS) seurie ous UNMAP calls. 
4F7 25 5 ASSUME CORPSWUCUTUCATR £0 <CDRPSL TOUTUFLAGS 
4F7 5 ASSUME CORPS$W — EQ <CDRPSL- DUTUF LAGSs6> 
40 as 7C 04F7 : } CLRQ CORPSL-DUTUFLAGS (RS) : Clear f one counter, & msg. size. 
28 AS) 56 A 9E O4FA MOVAB UCBSW RUAITCNT CRS) e232 Cotas tone field to wait counter 
8 279 corPSC_ RWCPTR(RS) 3 int 
56 43 838 COG FF 246 TSTwW UCBSW_RWAITCNT(R3) 3; Are ‘'‘normal'’ 1/0 requests stalled? 
90 12 30% 7 BNEQ 10_STALLED 3; Branch if requests are stalled. 
504 2545 DU_RESTARTIO: ; Label where we RESTART CORP's after 
5 r 238 : virtual circuit re-CONNECTION. 
00c8 63 00 4 8 MOVL UCBs, CDT(R3),- : Place CDT pointer inte CDRP for 2* 
24 A5 3 8 254 CORPSC_CDT(RSS : reference by SCS routines. No 
A 9 ; do this after label “OU. RestaRTION 7 
5S0A 25 3: that it is refreshed upon restart. 
54 0084 ¢3 00 ; ’ § MOVL UCBSL_PDT(R3) ,R4 3 R4 => port's PDT. 
40 AS 04 D3 O50F 4 BITL #CDRPSM_ERLIP : When set, this bit scene on an qperation 
: 5 CORPSL_ BUTUFLAGS (RS) ; which replaced a block is being 
09 12 1 : § BNEQ 3; restarted and that the previously 
: 3 ei Located RSPID should continue to 
3 used. 
20 AS) 64 1 } CLRL sn -RSPID(RS) 3; Prevent spurious BEALL OF RSPID. 
1 99 ALLOC_RS ; ALLOCate a ReSPonse ID 
64 453 0800 8F 83 8it «2561 108: = BIT Tw aucegn VALID - : Is volume saltuere wali! 
524 2562 UCBSW_STS(R35 
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3 BEQL VOL INVALID 


5 PHYIO_VOLINV: 
ALLOC_MSG_BUF 


BLBC = RO, MSG_BUF _FAILURE 


NE MSCPSK_MXCMDLEN 
NE MSCPSK-MXCMDLEN 
NE MSCPSK-MXCMDLEN 


MOVL CDRPSL_RSPID(RS) ,- 
MSCPSL~CMD_REF (R2) 


ass Ss 


«ENDR 
ell 
ll 
ll 


MSCPS$OQ_UNIT RD) 

DU_BEGIN_IVCMD: 
Aovw 

ASSURE 10$v_FCODE EQ 0 


> 
: coos BRB START_NOSUCH 


MOVL __R2, RO 
ith MSCPSk_MXCMDLEN /8 


MOVW UCBSW_MSCPUNIT(R3),- 


CORPSW_FUNC(RS), R1 


<UNL OAD, START —5— — 
<PACKACK START PACKA - 
<WRITECHECK, | START CURITECHECR> « 
<WRITEPBLK, START ART “WRITEPBLK 


—E 8 
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DRIVER.SRCJDUDRIVER.MAR;2 
; Branch if not volume software valid. 
; Allocate an MSCP buffer (and also 


; allocate a unit of flow control). 
: If failure, branch out of Line. 


; Here a Little common MSCP packet initialization. 


; Copy message buffer address. 
: Zero entire message buffer. 
- CLRL (RO)+ 
> CLRW (RQ)+ 

e * ¢LRB (RO) + 


; Use RSPID as command reference 
; number for all commands. 


; Indicate UNIT number in MSCP 
3; packet. 


3; Get function code & modifiers. 


CWS #*cIOSM_FCODE, R1, RO ; Extract just the 1/0 function code. 
DSPACE | RO, type=B, — 319 : Dispatch to correct 
NOP START : function processing. 


T-READPBLK 


<AVAILABLE, START TAVAILABLES ° 
<DSE, START ~DSE> 


: Illegal function code 


Se 


Kae 


FA73° 


FEF4 
50 0254 ef 
1 


31 


out of main Line code 
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3 -SBTTL = More out of main Line code 


* 
+ 


Handle an iilegal 1/0 function. 


Since a message buffer has been allocated, DUTUSRESTORE_CREDIT must be 
called to restore the allocated send credit. Then the request can be 
finished off with SSS_ILLIOFUNC. 


TART_NOSUCH: 
BSBW  DUTUSRESTORE CRED 
MOVZWL #5 LILLIOFURC RO 


BRW = = FUNCTION_EXIT 


IT 3; Restore allocated send credit. 


; Branch to exit 1/0 function. 


; Handle a message buffer allocation failure. 


3; Control get here whenever there is a message buffer allocation failure. 

3 This implies that the connection to the MSCP server is broken. The action 
3; to be taken is to kill this thread of execution by placing the CDRP at the 
3; tail of the outstanding CDRP queue. Because of the connection failure, a 
3; thread exists that is currently executing that is gathering all CDRP's 

3 associated with this connection for a future restart attempt. Therefore, 
3 control is pased to DUTUSKILL_THIS_THREAD which will handle this error. 
i] 


SG_BUF _FAILURE: 


BRW DUTUSKILL_THIS_THREAD ; Branch to where we collec 


lect all active 
3; CDRP's prior to re-CONNECTI 


ON. 
++ 
Handle volume which is not software valid. 
; When a volume is not software valid, ig) ae sical epoet tone are legal. Alt 


; other operations must produce a SS$_VOLINV status. e only exception is a 
⸗ 20 race window where the volume can become invalid while a thread is 
3 n 
v 


PPE EE AWWA AIA AAI — ——— —⏑———— 


OOD 2 O OD ⏑ AE o— OD NA NEW o —⏑ —⏑ 


waiting for a RSPID. In this case, a check for a packack which might make 
things better is required. 


OL_INVALID: 
BBS #1RPSV _PHYSIO - 
CORPSW"STS(RSS 
PUY LO _0OL INy 
TSTW sd UC BSW RWAITCNT(R3) 


BEQL VOLN 

DEALLOC_RSPID 

BR} 10_STALLED 
VOLNOTVAL: 

MOVZWL  #SS$_VOLINV.RO 

CLAL R 


See if PHYSICAL 1/0 requested. 
If physical, then branch back to 
continue even tho VOLINV. . 
Is the wait count raised? 
Branch if wait count not raised. 
Else, release RSPID. 
Join the 1/0 is stalled code path. 


Indicate error status. 
Clear second word of 1/0 status. 


4⏑—⏑—⏑ —⏑ 1⏑1V4⏑ 


cc 
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© > hace CLASS DRIVER 
e out of main 


ABB 


Line code ~~ TMCREBCHSEG: Q9SRESES. RIVES 


BRW FUNCTION_EXIT 
End of out of Line code 


vO4= 
SREIDUDRIVER. MAR; 2 


; GOTO common exit. 


rom i, 


v0 


RK = DISK CLASS DRIVER 16-SEP-1 AX/VA ro V04-00 P 
—WR START NOP $: — 99: 32: 36 DRIVE —*6 — MAR; 2 — 
5 -SBTTL START_NOP 

START_NOP = Prepare’an MSCP packet to do a GET UNIT STATUS command. 

tPuTs 
=> 1/0 y a } bey code & modifiers 
32 oar oe 
= 


R4 => PD 
RS => CORP 


AA 
AA 
AA 
AA 
AB 
AA 
AA 
AA 
M8 
nr rg The MSCP packet contains zeros except for: 
AA 5g MSCPSL_CMD_REF(R2) <== CDRPSL_RSPID(RS) 
AA 278 MSCPSW_UNIT(R2) <== UCBSW_ASCPUNIT(R3) 
aa 7 
AA é ; TART. : 
03 90 af § MOVB #MSCPSK_OP_GTUNT,= 3; Transfer GET UNIT STATUS opcode 
08 A AC 6 ; MSCPSB KOPCODE (RES ; to packet. 
ae 5 SEND_MSCP_MSG ; Send message to the MSCP server. 
B1 26 ; DO_ACTI od puma A ; Decode MSCP end status. 
584 26 3 ACTION_ENTRY SUCC, SS$_NORMAL, 
D589 26 ACTION_ENTRY OFFLN, SSS_DEVOFFLINE, NOP_OFFLINE 
058 ACTION_ENTRY AVLBL, SSS_MEDOFL, NOP~ AVAIL 
Cc 91 ACTION_ENTRY DRIVE, SSS$_DRVERR NOP_DRVERR 
C 3 ACTION“ENTRY § CNTLR, SSS-CTRLERR, NOPCTRLERR 
C 69 ACTION_ENTRY ICMD, SSS$_CTRLERR NOP” IVCMD 
D 694 ACTION-ENTRY § SHST, SSS"SHACHASTA, NOP~SSSC 
307 699 ACTION“ENTRY — END_TABLE 
« ; Unexpecte end status. 
0878 31 43 637 BRW INVALID_STS U d MSCP end 
ye 639 NOP_IVCMD: 
abe IVCMD_BEGIN 3 Setup ¢ invalid command processing. 
08 A2 03 90 DF 27 MOVB #MSCPSK_OP_GTUNT, - 3 Get Unit Status cocede 
E327 é SCP$B_OPCODE (R25 : in duplicate MSCP comm 
E 7 IVCMD_END 3 enptese invalid commend processing. 
ze 4 : 3 — BRB NOP_SUCC 3 Fer through to complete command. 
E 7 
E 707 NOP_SUCC: 
E 4 —8R— 
E NOP_AVAIL: 
3 710 NOP_CTRLERR: 
E 711 NOP_DORVERR: 
3E J nop ẽsẽt 
51 Bs E 71 CLAL R1 ; Clear for 1/0 status block. 
036D 1 OSE 714 BRwW FUNCTION_EXIT ; Branch to common exit. 
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7 <SBTTL START_PACKACK 
: START_PACKACK = Prepare an MSCP packet to do an ONLINE command. 
721 ; INPUTS: 
722 : Ri => 1/0 tenasten code & modifiers 
723; R2 => MSCP buffer 
4; R5 => uC 
> R4 => PD 
§ : RS => CORP 
, : The MSCP packet contains zeros except for: 
730 ; MSCPSL_CMD_REF(R2) <== CDRPSL_RSPID(RS) 
4 3 MSCPSW_UNIT(R2) <== UCBSW_ASCPUNIT(R3) 
7 . 
4 : START_PACKACK: 
03 68 43 0c 682 7 $ BBSS #UCBSV_MSCP_PKACK, = : Branch if PACKACK in progress is 
7 UCB$W_BEVSTS(R3), 5$ 3 set and set it. 
56 43 B6 , 8 INCW  UCBSWTRWAITCNT(RS) ; Bump wait count to stall 1/0. 
08 A2 09 90 my 5$: MOVB #ASCPSK_OP_ONLIN, - 3: Transfer ONLINE opcode 
2 MSCP$B_OPCODE (R25 ; to packet. 
oor 3 80 28 MOVW UCBSW_UNIT_FLAGS(R3),- ; Copy unit flags to MSCP packet. 
248 MSCPSQ_UNT“FLGS(R2) 
1c A2 0008 c3 00 reg MOVL uces, MSCPDEVPARAM(R3), - ; Copy Device dependent parameters to 
IS MSCPSC_DEV_PARM(R2) : MSCP packet. 
8 51 06 €1 ok: BBC #10$V_SHADOW, R1, 10$ ; Branch if not shadow packack. 
20 DC A 80 7 ? novu CORPSC_MEDIAS4(R5) >» J Copy shadow device pseudo-unit unit 
7 MSCP$W~SHDW_UNT (R25 > number. 
18 42 02 45 B80 7? ; MOVW CDRPSL-BCNTTRS), - ; Plant exc. area block count. 
7 MSCPSW~EXCL Bc i{R2) 
14 A2 DBAS 00 754 MOVL CORPSL_MEDIA(RS), - : Plant exc. area starting LBN. 
755 MSCPSL"EXCL_LBA(R2) 
22 422 DO 45 BO 7? § MOVW CORPSWBOFFTRS), - : Plant catchup copy speed. 
7 MSCPSW~COPY_SPD(R2) 
OA A2 10 AB 7 3 BISW #MSCPSA_MD_SHDSP, - 3; Set the shadow unit specified 
7 MSCPSW_MODTFIER(R2) ; modifier. 
781 108: IF_IVCMD then=PKAK_IVCMD_END : Branch if invalid command processing. 
i SEND_MSCP_MSG : Send message to the MSCP server. 
7 ASSUME UCBSV_VALID GE 8 
65 43 08 8A 766 BICB #<uCBSA VALID @-8>, - ; Initialize software volume valid. 
, UCB$W_STS+1(R3) 
7 $ DO_ACTION NONTRANSF ; Decode MSCP end status. 
7 9 AGT ioe EuTRY SUCC, SSS_NORMAL, PA ih 
77 ACTION_ENTRY OFFLN, SSS$_MEDOFL, PACKACK_OFFLINE 
9 ACTION“ENTRY § ABRTD. SSS$"ABORT _PACRACK 
77 ACTIONTENTRY DRIVE. SSS"DRVERR, END“PACKACK 
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w K RIVER 1 ep] : AX/VMS Macro v04-00 Pa 61 
ra START writ §- Hise 1 99:92: be YORIVER. SREIOUDRIVER. MAR; 2 - a 
ACTION_ENTRY Temps S$_F T ND_PACKACK 
ACTION-ENTRY 5 —6. PACEACK 1VCMD 
ACTION-ENTRY DATA 8 T ACRACK 
ACTION-ENTRY shat 5 “ERLE NDS PACKACK 
ACTION_ENTRY ait ND-PACKACK 
ACTION_ENTRY 
07F6 , BRW ti 3; Unexpected MSCP end status. 
f PKAK_IVCMD_END: 
009F are PACKACK_IVCMD_END : Branch assist 
4 $ PACKACK_SUCC: 
, 3 : At this point, RO is assumed to contain SS$ Onn, and 
4 3 the online is assumed to have completed successfully. 
ay : Test for otherwise undetected errors during ONLINE command. 
6— OOE0 C3 02 79 BBS #MSCPSV_UF_576 i Is disk 576 b tqs/sector? 
794 vices —R r TTFLAGS(R3), - : Branch if disk is 576 bytes/sector. 
P38 ASSUME CORPS$V_CAND EQ 0 
71 40 AS 79 BLBS CORPSL— DUTUELAGS (RS), - ; Was 1/0 request canceled? 
as PACKACR_C ; Branch if request was canceled. 
3; Having done a ouccese tut ONL INE —— the MSCP end packet status 
1 : for the online command is saved in CDRP$W_DUTUCNTR. Since the 
; 3 online was successful, this field is not Conger needed to failover 
3 retries. The saved end status will be used ase to determine 
3; whether or not to call DUSONLINE_COMPLETE for hirt processing. This 
5 : needs to be done only otter th Sevies 13 first brought online. ALL 
$ ; succeeding onlines can ignore it. Status information in the ONLINE 
3 gon ommand end message is saved in the UCB, and other valuable 
; 3; information qs collected using a GET UNIT STATUS command. 
44 45 OA A2 9 MOV MSCPSW_STATUS(R2) : coer MSCP end status for later 
1 CORPSW “DUTUCNTRGRS) : 
OOCF \§ BSBW RECORD-ONLINE 3 3*8 ONLINE date in UCB. 
14 RESET_MSCP_MSG ; Setup message buf. etc. for reuse. 
03 15 MOVB 5* P$K_OP_GTUNT,- 3; Opcode is for GET UNIT STATUS. 
08 A 16 $8_OPCODE (R25 
} SEND _msce sasee 3; Send message to the MSCP server. 
8 If _MSCP —A —A GTUNT SUCC ; Branch if GTUNT successful. 
? AS Sune 8 Else 
55 40 AS DRPSL~ SUTUFEAGS(RS), ; Was —* request canceled? 
§ K CEL 3; Branch if request was canceled. 
Reset _MSCP_MSG ~ 3; If here, the drive went offline. 
FFSD : BRW START_PACKACK ; Go try again. 
§ PACKACK_GTUNT_SUCC: 
00D4 BSBW RECORD_UNIT_STATUS : Record UNIT STATUS data in UCB. 
50 01 MOVL #SS$_NORMAL, RO ; The PACKACK has been successful. 


—R STARTSPACKACK ——— 
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£0 BBS #ASCPSV_UF_RE - : Branch around, if controller initiated 
000 ef * — — — Bod block replacenen since we already 
£ VA ip ACKACK i have our status in RO. 
1A 68 A3 E0 BBS #UCBST_MSCP_WRIP, ; Also branch around if drive is 
UCBSW_BEVSTS(R3), - 3 write protected. 
— ACKACK 
154405 08 €0 BBS SCPSV st AL - ; Also branch around if drive was 
CORP$W_BUTOCNTR(AS), = ; already online when MSCP online 
VALID PACKACK 3 command was issued. 
F9SA’ BSBW = DUSLOTK HIRT 3 Else grab hold of the HIRT. 
F957" BSBW DUSONL INE_COMPLETE ; Make sure no replacement in progress. 
F9 ¢" 920" BYSUMLSCE MIRE 3 Release HIRT. 
? STL R 3; Was CDRP canceled? 
1 BNEQ 2s :; Branch if CORP not canceled. 
RSB 3; Else, kill this fork thread. 
40 a5 51 C8 2s BISL R1, CORPSL_DUTUFLAGS(RS); Set ERLIP bit if its on in R1. 
29 50 €9 BLBC RO, PACKACK_BADRCT : Branch if something wrong with RCT. 
Mae ASSUME UCBSV.VALID GE 8 
65 43 08 88 


BISB #<UCBSM VALID @-8>, - ; Set software volume valid. 
UCBSW_STS+1(R3) 
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END_PACKACK: 
ASSUME UCBSV_MSCP_PKACK Ge : 
1 8A #<UCBSM_MSCP_PKACK@-8>,-; Clear PACKACK in progress flag. 
9A UCBSW_DEVSTS#1(R3) 
6A 87 DECW UCBSW_RWA’TCNT(RS) 3 Unb wait count. 
33 BB PUSHR #*M<RO,R3,R4,R5> ; Save ortant registers. 
55 d0 MOVL R3, R ; Setup UCB address. 
00000000'GF 16 JSB8 G*S§CSSUNSTALLUCB 3 Unstall 1/0 requests. 
9 BA POPR #*M<RO,R3S,R4,R5> ; Restore important registers. 
1 B CLRL 3; Clear R1, for 1/0 status block. 


R 
BRW FUNCTION_EXIT Packack function is done. 


8 
ive PACRACK’ ~~ =O ate 197 5bO- 1388 90:33: 36 AX/VINS aco VO4=O9 es 
PACKACK zunnt PACKACK Errors 


MOVZWL #SS$_FORMAT, RO 
BRB UNDO“ONL INE 


neountered 576 bytes/sector disk. 
et bad disk —*ſ error. 
Negate the successful ONLINE command. 


PACKACK eporesten canceled. 
Set cance + status. 
Negate possibly successful ONLINE. 


Encountered a bad RCT. 


moe i 


° 8 if 


PACKACK_ CANCEL: 
MOVZWL #SSS$_ABORT, RO 
BRB UNDO-ONL INE 


PACKACK_BADRCT: 


50 216C BF 3X MOVZWL #SS$_BADRCT, RO ; Set BADRCT error status. 
UNDO_ONL INE: 3; Must undo the effect of a successful 
; MSCP online command. 
D8 AS 50 =O MOVL RO, CORPSL_MEDIA(RS) 3; Save function error status. 
RESET_MSCP_MSG 3; Ready message for a new MSCP command. 
08 A2 08 90 MOVB 3 Undo online with available command. 


#MSCPSk_OP aval - 

MSCP$B_OPCODE (R25 
SEND _MSCP_MSG 3; Sent AVAILABLE to the server. 
MOVL CBORPSL_MEDIACRS), RO 3; Restore function error status. 
BRB END_PACKACK ; Exit PACKACK processing. 


PACKACK_IVCMD: 
IVCMD_BEGIN 


50 DBAS 00 
c2 11 
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AMOO OOO NO OP PS PPPP PPLE PDH 9S POO 2 SS MOOMOM PUM! 


Begin invalid command processing. 


FEEA 31 W ~  START_PACKACK ; Duplicate PACKACK setup. 
PACKACK_IVCMD_END: 
7 IVCMD_ ; Complete invalid command processing. 
BB 11 4 2 BRB END_PACKACK : Complete PACKACK operation. 
7 39 PACKACK_OF FLINE: 
51 OA A2 OB 05 EF 4 4 EXTZV Bu368 : Extract the end message substatus. 
7 00 MSCP$W_STATUS(R2), R1__; Then, dispatch on that substatus: 
7 901 DISPATCH R1, type=W, prefix=MSCP$K_SC_. < = 
7 5 <UNKNO, 100$>, = ; Oni€ unknown to this server 
7 9 <INOPR, 100$>, - 3; Unit inoperative on this server 
7 904 <DUPUN, $>,- 3; Duplicate unit number 
- ¥ - 3; Run/Stop switch not depresse 
, ; 5 <NOVOL END_PACKACK> Run/St itch not d d 
50 008C 8F 3C¢ O71 309 MOVZWL #SS$_DRVERR, RO : Everything else is a drive error. 
90 11 4 4 BRB END_PACKACK 3; Branch to exit PACKACK. 
71 4 208: ; Duplicate unit 
F8DE° 30 7 91 6sBw BUT SSERD PYPLICATE UndT: Send a message to the operator. 
50 214 ef C 07 4 MOVZWL #SS$_DUPURIT,R ; Return final status. 
: ¥ ; Exit processing. 
56 Ue 4 a 9% BRB END_PACKACK Exit PACKACK i 
7 915 100$: : Unknown or inoperative ynit 
44045 86 07 916 INCW © CORPSW_DUTUCNTR(RS) : Count this retry attempt. 
44 AS 4 BI 7 91 CMPW #4, CORPS$W_DUTUCNTR(RS) ; Are the retries exhausted? 
A B 07 318 BLEQU END_PACKACR ; Branch if no more retries. 
40 AS CA 07 91 BICL #CORPSM_ERLIP, - 3 Since RSPID is going away, clear the 
7 9 9 CDRPSL_BUTUFLAGS(RS) : errorlog in progress (to get another). 
racy ; 7 9 BSBW DUTUSDEALLOC_ALL 3 Release all SCS resources. 
f 3° 7 3 ¢ BSBW DUTUSFAILOVER_UCB 3: Failover to secondary path, if any. 
E8 8 5 73¢ 3 BLBC RO, : Branch if switch attempt failed. 
FDC 1 735 4 BR DU_RESTARTIO 3; Otherwise, retry the PACKACK. 
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RECORD_ONLINE : 


-SBTTL PACKACK Support Routines 


its 


Rg = => cog Message 


; ; Outputs 


RO is destroyed 
UCB fields set 


novo 
MOVL 


BSBW 
MOVL 


MOVL 
MOVW 


RSB 


T 
A 
v 
s 
0 
UCBs BU VOL 


MSCPSQ_URT 


VOL_S 
F 
UCBSu "ONIT? F 
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Bbc 99:32:38 YORIVER. See SoubRives.man:2 * 2% 


2* 
KRtcond ONLINE = copy data form ONLINE END MESSAGE to UCB. 
3 ; Inputs: 


In the event qf success, copy unit 
cher gcter tes ce data to 

Storsing with the UNIT ID, followed 
by the media identifier and 

device type 


and 
; Then followed. by the unit size and 


Then by the volume serial number. 
Copy new unit flags from end packet. 


Return to caller. 
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7 3* 
; RECORD_UNIT_STATUS = copy data from GET UNIT STATUS end message to UCB 
, 4 § ; Functional Description: | 
764 ; The — MSCP end ayese e is analysed ong appropriate fields in 
ree 2 3 the UCB are filled in with information contained in the end message. 
7 964 : If the end message is shorter than MSCPSK_LEN, it is zero filled 
764 «2965 ; to that length. This compensates for controllers poss tbty passing 
764 308 3 some fields back as zeros by returning short messages. Then various 
7 8 3 eometr porqneters are copied or yet. from the geometry 
7 9 3 5 nformation in the end message. the basic cylinders/tracks/sectors | 
764 38 5 information precyced by these calulations contains ony zeros, a class 
764 «2970 ; driver anne k is declared. Finally, the two write-locked bits are 
764 2971 ; tested. If either is set, the DEVSM_ Sut bit is set. Otherwise, the | 
—8 3 bit is not set. | 
J5 
764 376 ; ® address of MSCP get unit status end message 
764 2977 ; R UCB address 
Pet 378 3 R CORP address ’ 
764 ; 6 : CDRPSW_ENDMSGSIZ(R5) size of MSCP end message | 
764 g98e ; Outputs: | 
Orbe ; 4 : RO & R1 destroyed 
764 3 6 : The following UCB fields are altered: | 
764 29 i] ; UCBSW_DU_LBNPTRK LONS per track 
764 2989 ; UCBSW_DU_TRKPGRP tracks per group 
764 2990 ; UCBSW_DU_GRPPCYL roups per Cylinder 
764 «2991 ; UCBSW_DU_RCTSIZE BNs in the RCT 
764 338 3 UCB$B_DU_RBNPTRK RBNs per track 
764 29935 ; UCBSB_DU_RCTCPYS number of RCT copies | 
764 2994 ; UCBSL_DU_TOTSIZ LBNs plus RCT blocks 
764 2995 ; UCB$B_ SECTORS sectors per track (must not be zero) | 
764 2996 ; U ~TRACKS tracks per cylinder (must not be zero) 
—8 997 ; UCBSW_CYLINDERS cylinders per volume (must not be zero) | 
7 4 | 
ree 6 RECORD_UNIT_STATUS: 
51 46A5 3 764 § MOVZ2WL CDRPSW_ENDMSGSIZ(R5), R1; Get size of end message received. 
50 630 1 As roe SUBWS «= R1, #MSCPSK_LEN, RO ; Compute size unsent message. 
1 76C BLEQ ; Branch if whole message sent. 
C ge 8 5 PUSHR #*M<R2,R3,R4,R5> ; Else, save favorite registers. 
6241 50 00 6€ 00 2c 07 § movcS #0 (SP) #0. RO, (R2)CRI} ; Zero-fill unsent message. 
C BA oe POPR #°A<R2,R$,R4,R5> : Restore saved registers. 
24 A 80 8 § 108: MOV’ MSCPS$W_TRACK(R2),- 3 Copy date from end message to UCB. 
OOFC C 77¢ 9 UCBSW BU _LONPTRK(R3)  ; LBN’s per track. 
26 BO 077F 1 MOVW MSCP$Q_GROUP(R2),- : Then tracks per group. 
OOFE C¢ 782 3012 UCBS$W_BU_TRKPGRP(R3) 
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; A B0 07 ; 13 MOVW MSCPSW SVL WOE Ree - ; Groups per cylinder. 
1 C 7 14 UCBSW RPPCYL R35 
9 do 1? MOVL itt “RARBLOCK(R —* : Unit size in LBNs. 
ef A BO 07 9 MOVW MSCP Q° Retr ope tothe - 3; Size of the RCT in blocks. 
OOFS C £9 18 UCBSW 4 OU, RET SIZE (RS) 
2— A 90 07 1 MOVB MSCP$B_RBNS(R2),- ; RBN's per track. 
OOFB C ree 9 ucesB ath NBNETRECR3) 
79E ASSUME DEvsy gil of A 
39 43 01 88 09079 BISB 0 -§>, - 3; Assume this unit has an RCT. 
7A 4 SPEVEHARSI (RS) 
50 2F A2 9A O7A 5 MOVZBL B_RCT_CPYS(R2), RO ; RO = # of RCT copies on the unit. 
8 12 O7A § BNEQ : Branch if unit has an RCT. 
39 43 1 CA iM BICL Ke oe Sn TAR Bey ; Else, signal that unit has no RCT. 
OOFA CS 50 90 rac : 15$: MOVB ° aria ti BES oo RCT CPYS(R3); Save number of RCT copies on unit. 
50 2CA AS 0781 1 MULW MSCP$W_RCT_SIZE(R2),RO ; RO = size of RCT area. 
00F4 C3 50 0080 C C1 0785 ; ADDL UCBSL _MAXBCOCK (R3) ,RO,- :; Size of user visible area plus size 
Orep ? UCBSL_DU_TOTSZ(R3) : of RCT area is total size. 
24 ng 90 0780 5 MOVB MSCPS$W_TRACK(R2),= : Init UCB devdepend fields. 
44 A rte § ycase. SECTORS(R3) : Tracksize is number of sectors. 
$6 13° O7C BEQL ; Branch to bugcheck if zero. 
5 D4 O07C4 30 3 CLAL RO 3; Clear Produc 
$6 A AS reg 0 MULW3 MSCPSW =GROUA (RE) 5 ; Group size * cylinder size = 
50 8A 7C 040 MSCPSW- CYLINDER ( fa). RO ; # of tracks in a cylinder. 
45 a3 ; 9 7CC 3041 MOVB RO,UCBSB_TRACKS(R3) 
4 1 oe beg EQL 99 ; Branch to bugcheck if zero. 
50 24 A2 44 144 04 MULW2 as 5 ya TRACK(R2) ,RO 3; * Msectors/track = #sectors/cyl 
3 D4 708 044 CLRL ; Put UCBSL_MAXBLOCK into low order 
0080 f D 07D 45 PUSHL mitt rw Ww: temic 3; longword of workarea on stack. 
51 50 BE 0 B O7DC 8 EDIV RO (SP)+¢, F UCBs MAXBLOCK/RO ... quotient => RO, 
44 *8 -> R1, workarea popped off 
3 Stack. 
51 rf 7E1 49 TSTL R1 ; Test for any remainder. 
8 1 7E 50 BEQL 25$ ; EQL means no remainder. 
5 D6 O7E 51 INCL RO : If remainder, round quotient up- 
46 43 50 9 7E b2¢ 25$: MOV RO cane CYLINDERS(R3) ; Store number of cylinders on disk. 
w ree 2? BEQL 99$ :; Branch to bugcheck if zero. 
7ED 5 ASSUME MSCPSV_UF_WRTPH GE 
7ED — ASSUME mscP ey. we, F-WRTPS GE 
7ED ASSUME MSCPSV_UF _WRTPD GE 
7ED 28 ASSUME UCBSV_ASCP_WRIP SE 
69 43 20)—Ss BA_s«O7ED 5 1¢B #<UCBSM_MSCP_WRIP@-8>, -; Clear class driver writ prcoiected 
7F1 $9 UCBSW_DEVSTS#1(R3 : fla 29; 
93 O7F1 6 BITB 36 M_UF Bila ~ 3 Is the unit data loss, 
7F 8 OF QRTPH - 3; hardware, or 
7F 6 RSCPan F-WRTPS>@-8>,-; software “write protected? 
OF A2 1 7F 64 r cP W sURT FLGS+#1(R2) 
4 3 7F 65 BEQL : Branch if not write protected. 
69 43 0 8 7F $6 BISB 86 MSCP_WRTPa-8>, -: Else, set the class driver write 
ve UCBSW_DEVSTS¥1(R3) 3 protected flag. 
05 0F A2 OF €1 O7FB $5 50$: BBC #MSCPSV_UF_SSMEM, - : Branch if unit is not a shadow set 
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7 MSCPSW_UNT_FLGS(R2), 60S; 

00 30 43 06 2 BBSS ROE YSN SSH - 3 
f UCBSL_BEVCHAR2(R3), 608 ; 

05 4 60S: RSB 8 

é 6 999$: BUG_CHECK DISKCLASS, FATAL : 

A 28 : 

A 307 ; 

A 3080 ; 
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m 


ember. 
Else, set shedow set member device 
characteristic. 


Return to caller w/ status in RO. 


This bugcheck is here to catch MSCP 
servers which return invalid 
geometry information from a 

et Unit Status to an ONLINE drive 
red-handed. 
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START_UNLOAD and START_AVAILABLE -SEP-1984 2:14:06 CORIVER.SRCIDUDRIVER.MAR;2 (1) 
-SBTTL START_UNLOAD and START_AVAILABLE 
3 START_AVAILABLE - wvesere an MSCP packet to do an AVAILABLE command without 
: the spindown modifier. 
; START_UNLOAD - prepere an MSCP packet to do an AVAILABLE command with 
: spindown specified. 
> INPUTS: 
; R1 => 1/0 function code & modifiers 
3 R2 => MSCP buffer 
; R35 => UCB 
3 R4 => PDT 
3 RS => CDRP 
: The MSCP packet contains zeros except for: 
0 ; MSCPSL_CMD_REF (R2) <== CDRPSL_RSPID(RS) 
3 MSCPSW_UNIT(R2) <== UCBSW_ASCPUNIT(R3) 
8 START_UNLOAD: 
0g BO 080 MOVW #ASCPSM_MD_SPNDW,- 3 Speci ty the SPINDOWN bit in the 
OA A i MSCPSW_MODTFIER(R2) : modifier word. 
9 START_AVAILABLE : 
$0 MOVE #MSCPSK_OP aval, J : Transfer AVAILABLE opcode 
MSCP$B_OPCODE (R25 ; to packet. 
IF_IVCMD then=AVAIL_IVCMD_END ; Branch if invalid command processing. 
SEND_MSCP_MSG 3; Send message to the MSCP server. 


ASSUME UCBSV_VALID GE 8 
B1CB #<UCBSM_VALID @ -8>, - ; Clear software volume valid. 
UCBSW_STS+ (R3) 
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AAA AAA MAA PIIDIIIDININININININ — 2 2 9 > § OOO DD00000 000000050 
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08 90 
08 A : 
65 AS 08 8A 
DO_ACTI NONTRANSFER ; Decode MSCP end status. 
ACTION_ENTRY SU SS$_NORMAL , AVAILABLE _SUCC 
ACTION_ENTRY OFFLN, SSS_MEDOFL, AVAILABLE _MEDOFL 
ACTION_ENTRY ABRTD, SS$_ABORT AVAILABLE ABORT 
ACTION“ENTRY DRIVE, SS$“DRVERR AVAILABLE DRVERR 
ACTIONTENTRY = CNTLR, SSSTCTRLERR, AVAILABLE ~CTRLERR 
ACTION-ENTRY MD, SSS$"CTRLERR AVAIL_IVCAD 
ACTION-ENTRY § SHST, SSS$"SHACHASTA, AVAILABLE_SSSC 
4 ACTIONTENTRY — END_TABLE 
060c 31 r BRwW INVALID_STS 3; Unexpected MSCP end status. 
4 AVAIL_IVCMD: 
4 —— : Begin inyat i¢ command processing. 
FCFS 31 4 Rw DU_BEGIN_IVCMD ; Rebuild failing MSCP packet. 
4 AVAIL_IVCMD_END: 
4 IVCAD_ 3 fenplose invalid command processing. 
5 3 weeee BRB AVAILABLE _SUCC ; Fall through to complete available 


€ 9 
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1 : operation. 
f 
142 AVAILABLE _SUCC: ; Action routine for MSCPSK_ST_SUCC. 
145 AVAILABL “pe bOrks 3; Action routine for MSCPSK_ST_MEDOFL. 
144 AVAILABLE_ABORT: ; Action routine for A416 A 
145 AVAILABLE _DRVERR: ; Action routine for MSCPSK_ST =peyeen. 
148 AVAILAB og TELERR: 3 Action routine for MSCPSK-ST"CNTRL. 
147 AVAILABLE SSSC: 

00 3¢ 43 06 65 8 BBCC #DEVSV_SSM, = 3; Since its not longer one, clear the 
14 UCB SL DEVCHARZ (RS). 10$ ; shadow set member device char. 
1 9 10$: ASSUME UCBS P_WRTP GE ; 

69 AS) 20 84 1 BICB a<U UCBSR MSCP_WRTPa-8>, -; Also clear class driver write 
1 ¢ UCBSw DEVS TS#4 (RS) i protected flag. 
51 4 9 31 CLAL R1 ; Clear R1, for 1/0 status block. 
oa UN x 
O0F9 1 58 3154 BR FUNCTION_EXIT 


‘9 
STARTDSE = Start data security erase  '9-SEP=198¢ 19:16:06 EDRIVER.SREDDUDRIVER.MAR:2 “9% (fp 
i It —n⸗aꝛtei —R = Start write opertions 
} 3 «SBTTL START-READPBLK = Start Fead operation 
; START_READPBLK = Prepare an MSCP packet to do a READ command. 
START_WRITEPBLK = Prepare an MSCP packet to do a WRITE command. 
START_WRITECHECK = Prepare an MSCP packet to do a COMPARE HOST DATA command. 
START_DSE = Prepare an MSCP packet to do a ERASE command. 
—— 


=> 1/0 function code & modifiers 
=> og buffer 
= 


The MSCP packet contains zeros except for: 


MSCPSL_CMD_REF (R2) <== CDRPSL_RSPID(RS) 
MSCPSW_UNIT(R2) <== UCBSW_ASCPUNIT(R3) 


-ENABLE LSB 
START_DSE: 
MOVB #ASCPSK_OP 73 


Transfer ERASE opcode to packet. 
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COOOO0 O00 0909 09 SI NIN SINISE NINO OOO 


oO 
=z 
wv 
- 


GEQ implies only read ng one block. 
so we return to inline code. 
Else indicate error and branch around. 


MSCPS$B PecOve (a 
IF _IVCMD then=90$ : Branch if invalid command processing. 
BRO AF TER_MAP : Else, branch around to common code. 
: 90$: Baw DSE_IVCMD_END ; Branch assist. 
C PHYS_10: ; Out of Line code to handle ‘‘physical"’ 
C 3; READ operations. I.e. reads of RCT. 
C CMPL CORPSL_MEDIA(RS),=- 3; Make sure block to be read within 
: yc@st_Bu_Torsz(R3) i Limits of disk. 
? BGEQ $ ; GEQ implies NOT on the disk. 
CORPSL_MEDIA(RS) = 3; Make sure block to be read within 
7 BSL_MAXBLOCK (RS) F area. 
B7A BLSS 3 LSS implies NOT in RCT. 
D2 AS 143 1$ CMPL #512, CORPSL_BCNT(RS) 3; Reads of RCT should be 1 block only. 
BGEG  00_MAP ; 


MOVZWL 6558 _IVOUFLEN. RO 


MOVZ2WL #SS$_IVADDR,RO Bad address on disk. 


CLRL R1 ; Clear for 1/0 status block. 
BSBW DUTUSRESTORE CREDIT 3 Restore allocated song credit. 
Ha BRw FUNCTION_EXIT ; And goto common function exit. 
B9A $011 START_WRITECHECK: 
9 12 


OOF4 C3 


0080 C3 


05 51 
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04 51 
OB A2 


0B 51 
51 06 
OB A2 


1D 51 


OB A2 


08 A2 


8 
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7 
de is 


49 
cc 


ot 
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OF 
01 


00 
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07 


80 8F 
16 


8F 
010€ 
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novs 

CAPL 


BGEQ 
CMPL 


BLSS 
BRB 
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START_WITH_MODIF 
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PHYSICAL: 
XFER_IVCMD_END: 
BRO 


START_WRITEPBLK: 
novs 


PSS A AR SO IR —— 
wo wm OED NO ALO ONO UE WN" O OO 


art read operation 


#MSCPSK_OP_COMP,- 

MSCPSB_OPCODE (RZ) 

CORPSL“BCNT(RS), = 
BSL _Bu_TOTSZ(A3) 


CORPSL_BCNT(RS), = 
UCBSL |RAXBLOCK(A3) 


-DISABLE LSB 
Out of Line processing for all read and 


"Sr eepn ibe $9:14:06 
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DRIVER. SRC JDOUDRIVER.MAR; 2 

Compare host data opcode 
to packet. 

Make sure b qck to WRITECHECK within 
Limits of disk. 

GEQ implies NOT on the disk. 

See if block to WRITECHECK within 
RCT area. 
$$ tap) ies NOT in RCT so continue. 
f in RCT, go check BCNT. 


write modifiers. 


This goes section receives control whenever any of the possible 
modifiers for read or write functions are detected to be set in a 
single test in the common read/write code below. 
modifiers are checked and processed. 

of instructions in the main-Line no-modifiers-set code path. 


Here the individual 
This scheme reduces the number 


IERS: 
#10SV_DATACHECK, R1, 10$; Branch if data check not specified. 
MSCPS0_MD_COMP GE 8 : Else, set the read/write with 
#<MSCPSM_AD COMP@-8>, - ; data compare modifier. 
MSCPSW_MODIFIER+1(R25 
#1OSV_INHRETRY, R1, 20$ ; Branch if retries not inhibited. 
MSCPS0_MD SEREC 4 ; Else, set the suppress error 
#<MSCPSM_AD SEREC@-8>, -; modifier. 
MSCPSW_MODIFIER+1(R2) 
#1OSV_FORCERR, R1, 30$ ; Branch if forced error not specified. 
#1OSV"FCODE, #10$$_FCODE. - : Is this a write function? 

1, #TO$_wRiTEPBLK 

§ : If not. ignore forced error requests. 
MSCPSV_MD_ERROR GE 3: Else, set the WRITE with force 
#<MSCPSM_AD_ERROR@-8>, -; modifier. 

SCPS$W_MODIFIER+1(R2) 
#l1OSV_EXPRESS, R1, - : Branch if express request not 
TEST _PuySslo 3 specified. 
MSCPSV_MD_EXPRS GE 3; Else, set the express request 
#<MSCPSM_AD_EXPRS@-8>, -: modifier. 
MSCPSW_MODIFIER+1(R2) 
TEST_PAYSIO : Rejoin common code. 

3; Branch assist. 
PHYS_10 
3; Branch assist. 

TRANSFER_IVCMD_END 


#MSCPSK_OP_WRITE, - 
mSch $B OPCODE (RSS 


Setup write MSCP opcode. 
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H 9 
—B $1 PREADPBLK tert read operation "$28 oat 99732586 YORIVER. SREIDUDRIVER. MAR: 2 tae 
1 


04 1 7 BRB START_READWRITE ; Join common code. 
START_READPBLK: 
08 A2 21 9 4 MOVB #MASCPSK_OP_READ, - 3; Setup read MSCP opcode. 
i 3 MSCP$B_OPCODE (RO) - — 
5A i START_READWRITE: 
EA 7 3; Test for any special modifiers set: 
$1 180 BF B3 OBEA 3580 BITW #<IOSM_DATACHECK = data check 
sf i iGenag mung ray - ° inhibit retries 
r 'TOSM_FORCERR = 3 write forced error 
EF 'IOSM-EXPRESS>, R1 : express request 
BF 12 EF 4 BNEQ  START_QITH_MODIFIERS : Branch if any modifier set. 
4 § TEST_PHYSIO: 
Fi 3 ASSUME IRPSV_PHYSIO GE 8 
CB AS 01 83 Fi BITw #<IRPSM_PHYSIO @ -8>, - ; Is this a physical request? 
F 0 CORPSW_STS+1(R5) 
&4 12 : 4 BNEQ PHYSICAL ; If physical request, get physical. 
F7 38 DO_MAP: 
3 3 IF IVCMD then=XFER_IVCMD_END 3; Branch if invalid command processing. 
30 AS 9€ FB 38 MOVAB CDRPST_LBUFHNDL(RS),- ; Put address of Local BUF fer HaNDLe 
C AS F 9 CORPSL_LBUFH_AD(RS) :; field into field that points to it. 
9 MAP_IRP ; Allocate mapping resources and load 
9 3 them with data from SVAPTE, BOFF, 
0 : and BCNT derived from IRP within 
H 1 3; CORP. 
52 1 7 0 09 § MOVL CORPSL_MSG_BUF(RS),R2 ; Refresh R2 => MSCP packet. 
30 A D 09 0 novo CORP$T-LBUFHNDL (RSS ,- : Copy contents of buffer handle to 
1 Ae 90A 5 MSCPSB_BUFFER(R2) 3; _MSCP buffer descriptor field. 
38 A DO 090C MOVL CORPST_LBUFHNDL+8(R5),- ; Buffer handle is 96 bits (12 bytes) 
18 A2 90F MSCPS$B_BUFFER+8(R2) : in length. 
911 § AF TER_MAP: 
02 AS 00 11 MOVL CORPSL_BCNT(RS) .- 
45 Ae 914 19 MSCPSL_BYTE CNT(R2) : Copy byte count of transfer. 
DB A d0 44 1 MOVL CORPSL_MEDIA(RS) ,- 
1C A2 +H 3 MSCPSL_LBN(R2) ; And also the Logical Block Number. 
34 13 SEND_MSCP_MSG INLINE : Send message to the MSCP server. 
OSA 8 : To make the normal (successful) case go faster, an explicit test for 
OSA 1 : a successful MSCP status is made here. If that test fails, 
93A 1 3 an ection table will be used to determing the appropriate action. 
H rn 1 : If it succeeds, however, we're goin’ a git out o° here like a shot. 
$n IF _MSCP FAILURE then=TRANSFER_MSCP_ERROR ; Branch if not successful. 
94 5 ; Transfer was successful 
50 00010000 8F 00 + 3 MOVL #SS$_NORMAL@16, RO 3; Set success status. 
947 6 TRANSFER_RTN_BCNT: ; Common TRANSFER action routine. 


50 


51 OC A2 

50. FO BF 

09 a42 80 BF 
45 


do 


93 


STARTS 


LASS DRIVER 1G-SEP=1984 00:55:34 YAX/VMS Macro v04=00 Page 73. 
R * - Start read operation 3 138 99: 2 3 DRIVER. SRC JDUDRIVER.MAR; 2 — 00 
Here RO has SS$_ Fede in hi order. 
8 MSCPSL_BYTE_CNT(R2), R1 ; Get # bytes actually transferred. 
4 TRANSFER_SHIFT: 
4 #-16, RO, RO 3; Shift into proper position for 10SB. 
BITS #ASCPSA ieee ; Has a bad block been reported? 
MSCPSB reaceen 3 $0, 
> BNEQ XFER_REPLACE 3; it must be replaced. 
4 — TRANSFEREND: 
957 3539 ; ----= BRW FUNCTION_EXIT 3; Fall though to function exit. 
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00000000 °* GF 
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Funct 
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-SBTTL FUNCTION_EXIT = Common request completion processing 


Deallocate all 
necessary perform special 


Else, complete the request normally. 


Get end message address. 


; Branch if no end message present. 


Was an error log message generated? 


Branch if error tog generated. 

How about a very old error log msg., 
which the server has forgotcen? 
Branch if error log generated. 


: Just in case clear bit. 


Save final 1/0 status on stack. 
Free resources owned by this CDRP. 
Restore final 1/0 status. 


Get CDDB address in R2. 
Is CDDB in single stream mode? 


Branch if single stream. 


é 3** 
FUNCTION_EXIT = Common request completion processing 
46 $ Functional Description: 
48 ; If need to log final 1/0 status call ERLSLOGSTATUS. 
49 ; 4 resources held by the request. 
: single stream processing. 
: Inputs: 
: : R3 UCB address 
3 R4 POT address 
§ : RS CORP address 
8 ; Outputs: None. 
6 we 
6 -ENABLE LSB 
e§ FUNCTION_EXIT: 
65 MOVL COPE, EE SUF (RD) R2 ; 
$6 BEQL 08 
8 BITB #ASCPSM_EF EALOS. * 3 
MSCP$B_FLAGS(R2) 

0 BNEQ LOG_FIRAL_STATUS : 
71 BITL #CORPSm_ERLIP, - : 
re CORPSL_BUTUFLAGS(RS) =: 
3 BNEQ LOG_FIRNAL_STATUS ; 
75 208: BICL #CORPSM_ERLIP, - 

2 CDRPSL_BUTUFLAGS(RS) 
4 vo RO,-(SP) 3 
7 BSBW DUTUSDEALLOC_ALL : 
? va (SP)+,RO 3 
§ MOVL UCBSL_CDDB(R3), R2 3 
BITw CODBSA SNGLSTRM, = : 
; CODBSW_STATUS (R25 
BNEQ SINGLE STREAM 3 
¢ ALT_REQCOM ; 


3 LOG_FINAL_ STATUS: 
J$B SEM SLOSS Tats 
BRB 0 


SINGLE_STREAM: 
9 PUSHR #*M<R2,R4> 
G*10C$ALTREQCOM 
BOR<R3 RGD 
% BRW RESTART _NEXT_CDRP 
9 -DISABLE LSB 


Else, complete the request. 


Go log software status for errorlog. 
Rejoin mainline code. 


Save CDDB and PDT addresses. 
Complete request. but keep control. 
Restore CDDB and PDT addresses. 
Branch to code to restart next CDRP. 
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30 AS 
38 AS 


D2 AS 
DB AS 


68 51 


RP 
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Waves ee 


16-SEP-1984 
ror processing et 7 
-SBTTL READ/WRITE Error processing 

-ENABLE LSB 


XFER_REPLACE: 
BRW TRANSFER_REPLACE 


ALL data transfer error cases begin their processing here. 
—2*;* and R2 point to the END PACKET which was returned by the 
erver. 


55:34 YVAX/VMS Macro V04- 
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3; A branch assist. 


TRANSFER_MSCP_ERROR: 
1 DO_ACTION TRANSFER ; Decode MSCP end status. 
14 ACTION_ENTRY UCC, SS$_NORMAL, TRANSFER_RTN_BCNT 
15 ACTION_ENTRY AVLBL, 333-REDOFL. TRANSFER_MEDOFL 
16 re a tet OFFLN, SSS_MEDOFL RANSFER_RTN_BC 
1 ACTIONTENTRY DATA, SSS-FORCEDERROR, TRANSFER-DATA ERROR 
18 ACTION-ENTRY DRIVE, SSS-DRVERR ANSFER-RTN_BC 
1 ACTIONTENTRY CNTLR, SSS-CTRLERR, TRANSFER-RTN_BCNT 
0 ACTION-ENTRY  WRTPR, SS$-WRITLCK RANSFER-RTN_BCNT 
1 ACTIONTENTRY = C SS$"DATACHECK, | TRANSFER-RTN-BCNT 
g ACTION“ENTRY  MFMTE, SSS"FORMAT, ANSFER-RTN-BCNT 
ACTION-ENTRY § ABRTD, SS$-ABORT TRANSFER-RTN-BCN 
4 ACTION“ENTRY —IC SS$-CTRLERR, TRANSFER~ INVALID_ COMMAND 
5 ACTIONTENTRY  HSTBF, SSS-IVBUFLEN TRANSFER-HOST_BUFFER_ERROR 
$ ACTIONTENTRY § SHST,  SSS-SHACHASTA, TRANSFERRTN_BCNT 
ACTIONTENTRY  END_fABLE 
§ BRW INVALID_STS 3; Unexpected MSCP end status. 
: TRANSFER_INVALID_COMMAND : 
j IVCMD_BEGIN : Begin invalid command processing. 
4 BRW DU_BEGIN_IVCMD 3; Repeat MSCP command packet secur 
5 3; upto but not including the MAP_IRP. 
§ 3; Then do everyth ng after the 
TRANSFER_IVCMD_END: 3; MAP_IRP here, by hand. 
3 ASSUME™ CORP$S_LBUFHNDL EQ 12 
novo CORPST_LBUFHNDL(RS), - ; copy contents of buffer handle to 
40 MSCPSB_BUFFER(R2) ; MSCP buffer descriptor field. 
41 MOVL CORPST_LBUFHNDL+8(R5), - 
8 MSCP$B_BUFFER+8(R2) 
43 DSE_IVCMD_END: 
44 MOVE CORPSL_BCNT(RS), - : Copy transfer byte count. 
45 MSCPSL“BYTE_CNT(R2) 
8 MOVL CORPSL-MEDIA(RS), - : Copy starting logical block number. 
2 MSCPSL_LBN(R2) 
8 IVCMD_END 3 Complete invalid command processing. 
BLBC R1, 35$ 3: If this is the first time through 
3 ogre. try the MSCP command one more 
3 time. 
CLRL R1 : Else, clear ‘‘byte count.” 
: BRw TRANSFER_SHIFT 3 And blow this operation away. 
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40 a5 04 C8 BISL #CORPSA_ERLIP Else set corresponding bit in CDRP to 
rn CORPSL “ BUTUFLAGS(RS) remember this fact. 
3F 68 43 00 650 64 30$: BBS CBSV_MSCP_WRIP, 


Uceee 69. even attempt to perform the replace; 


work. 
Store valte 170 status in unused 


BOUOQOOOO VVNNWUOMmMmMmn 


FUSION & B= BE EE 


pA : TRANSFER_MEDOFL: 
£1 OA BBC aS CPSV C_INOPR,= : Branch around if NOT unit inoperative 
OA a3 y Ht ete ATUS (RES, - ; substatus. — — | 
0080000 gf DO QAI MOVL #sss Meel. RO : Else up RO with proper SS$_ code 
DAI ; _inh Sh order word and 
FF2C 31 nat ‘ BRW TRANSFER_RTN_BCNT ; Branch around. 
mis ¢ TRANSF ER_HOST_BUFFER_ERROR: 
5 «CF ais EXTZV iy ete $1.84 * 3; Extract the sub-code only. | 
51 OAA A § 5 MSCPSW 368 “ai 
1 g 81 A p CMPW 86s @MSCPSR_SC_ODDBC,A1 : Compare to Odd Byte Count error. 
3 6424 7 BEQL XFER_RTR BENT 3; Branch around if Odd BCNT. 
0428 31 A $ BRwW INVACID. STS ; Here we got an invalid MSCP status. 
A ; 74 TRANSFER_DATA_ERROR: 3; TRANSFER action routine for MSCPSK_ST_DATA 
A 75 : Here RO contains SSS$_FORCEDERROR in 
422 8 ; _high order word. 
51 OAA2 3 “ . 4 MOVZ2WL MSCPSW_STATUS(R2) ,R1 ; Zero extend MSCP status. 
: 4 i 3 ASSUME THAT FORCED ERROR SUBCODE IS ZERO. 
51 51 FB of 8 A 1 ASHL #-MSCPSS_ST_MASK,R1,R1 ; Shift out * status code. 
PS A ¢ BEQL XFER_RTN_BCAT 3; EQL implies that it was forced error 
A 3; so we iS branch since we already 
A346 4 ; have RO set 
50 O1F40000 BF DO OA34 5 MOVL #SS$_PARITY@16,R0 : Else set up RO with proper SS$_ code 
A § : in high order word. 
A XFER_ RTN_BCNT: 
FFO9 31 " BRw TRANSFER_RTN_BCNT ; Now, go complete the request. 
" 9 TRANSFER_REPLACE: ; Here perform Bad Block Replacement. 
0S €1 OA 3 BBC #ASCPSV_EF EAL OS. Branch around if End Message does NOT 
04 09 A2 ‘ 5 MSCP FLAGS (R Be 308 have ERLOG flag set 
A 95 
39 
9 
2 
( 
12 


AO AS 50 7D mova nO” Conese TOOFL (RS) : 
A : _FLINK and nine of IRP portion. 
FSAD* A BSBW DUSLOCK_HIRT $ gree hotd of HIRT. 
AA A BSBW * REPLACE _LBN : Perform the replacement. 
FS5A7° A BSBW — RIRT 3; Release HIRT. 
52 9 i) 4 MOVL 3 Copy ORB tenes status to R2. 
9 ASC TSTL 3; Was COR 
1 A BNEQ $ ; Branch if CORP not canceled. 
0 : RSB : Else, kill this thread. 
40 AS 51 AB OA 32$: B1SW R1, CORPSL_DUTUFLA S(RS?; Set ERLOGIP bit if on in RI. 
5 AO AS 7 A ‘ aovo Cop * 1OQFL RS) RS ; Restore 1/0 status of original Q10. 
1¢ 52. C=é«i‘é 469 BLBC R2,6 : LBC means unsuccessful replacement. 


If device is write protected, don't | 
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FER _NORRAL END: 
DISABLE 
code previously resided prior to label 24$ above. 


— 
zs 
—““ 
we 


Here 


User 


BLBS 


PUSHL 
BBS 
ut 
CLRL 
BSBwW 


POPL 
BRW 


"OrSEb=]9be $951 
RO, KFER_NORMALEND 


CORPSL_RSPID(RS) 


#CORPSV_ERLIP 
CORPSL BUTUFLAGS(RS), 


(SP) 
5 % 


CORPSL_RSPID(RS) 
DUTUSDEALLOC_ALL 


CORPSL_RSPID(RS) 
DU_RESTARTIO 


R2,R0 


FUNCTION_EXIT 
Cs 


as reference material. 


BBC #IRPSV -PHYSIO - 
CORPSW~STS(RSS ,24$ 
BBC Vv" FUN 
CORPS “STS(RS) 248 
if this is a 


physical aedia address to an L 
specified physical media address has following format: (in CDRPSL_MEDIA) 


Cylinder 


read physical function. 
BN 


AX/VAS Macro 
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* 


: If here replacement successful 
; LBS means original 1/0 was success. 


; Save current RSPID so as to possibly 
3; _reuse. 

3; If set, we reuse RSPID so that error 
- ; log messages co-relate. So we branch. 


: If no eereesen, Sreve RSPID to 


prevent 
spurious dea 


cates and branch. 

: Prevent current RSPID from being deallocat 
3; Free resources eyned by this CDRP before 

3 vetrying gyeres" on. 

3; Restore RSPID or zero to CDRP 

; Else go to retry the original request. 

3 Replace failed replacement status. 


3; And branch to FUNCTION_EXIT. 
It is left here 


: Branch around if NOT physical 1/0. 
: Branch around if NOT read function. 


We must back translate the 


i 
Track Sector : 


MOVZBL 
MOVZBL 
MU 


UCB$B_TRACKS(R3) ,R 
“SECTORS RSS R 


U ae 
RPSL sREDIA®2(R5), -(SP): 


CDAPEL MEDIA*1(R5),RO 
1 ppm 
R1, (SP)*, MSCPSL_LBN(R2) 


tracks/cylinder. 


: R1 = sectors/ rece. 

Rush user spec{ tied. cy Linder # 

: Push u - 

3; (SP) = LBN : sf sector in cylinder. 

: a6 = user specifi ed track 

3 reset ive 8 —— sector on track. 
3 u 

: Rt relatice LBN of user — 


: Deposit calculated LBN into packet. 
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-SBTTL re-CONNECTION after VC error or failure 


DUSCONNECT_ERR = Block of code invoked during the time that we 
re-CONNECT to the snte igent centres lor following some disturbance 
that cquped dismanteling of the logical CONNECT! tween the 
class driver and the controller. he ultimate purpose of the code 
here is to locate all CDRP’s relevant to this controller and place 
them in the proper order sore CODBS,_RSTRIQFL. ce 
all the CORP’s are on this List we ‘execute’’ each of these CDRP's, one 
by one, until they are all done. when the Last such CDRP is completed 
we resume normal Q10 processing. This code works in cooperation with 
code in FUNCTION_EXIT. 


We are invoked here either by the Port Driver calling us at our error 
entry point or by ine Disk Class Driver branching here as a result of 
deciding that the intelligent controller has gone ‘‘insane’’. 


The actions herein taken are the following: 


NICO 


— 


- We disable the Timeout Mechanism Routine wakeups by placing a 
Longword of all 1's in CRBSL_DUETIME. 


2. In order to prevent new CORP's from starting up. we increment 
UCBSW_RWAITCNT for each UCB associated with this controller. 
This count is used to count the number of CDRP's associated 
with a UCB that have run into resource wait situations. 
Whenever this count is non-zero, new CDRP's are automatically 
backed up onto the UCBSL_IRPQFL queue. Incrementing this 
count here, insures that it will not be run to zero and will 
cause all new CDRP’s to backup. 


3. We deallocate resources owned by the permanent CDRP used by the 
Timeout Mechanism Routine. 


> 
‘G9 Cd CS OD OD Cd OD Od OD OD 0D OD GD CO OD OP: CD CD Co OD CD CD 


‘9 C9 C9 CD C0 CO 


4. At the time that we are called here, our active CDRP's can be 
found in one of the following places: 


a) On the HIRT wait Q@. If here note that the associated UCB 
Ried LS has been bumped due to being on this List in 
addition to the bump given in step 2 above. 


b) On the RDT resource wait @. Here also RWAITCNT has been 
bumped once to many times. 


c) On the CDDBSL_CDRPQFL. Here RWAITCNT is normal except for 
the bump given in step 2. 


| 
El 


d) On some other resource wait Q (Flow control, mpesepe buffer, 
sene tae rossurces. etc.). Here again RWAITCNT has been bumped 
once to much. 


e) On the CDDBSL_RSTRTQ. If here, the CONNECTION has failed 
while we were in the middle of cleaning up a previous 
CONNECTION failure. The CDRP’s here need no further 


gathering. 
Our aim here is to gather all the active CDRP's onto the 


oa Poe Se te te ete nt et all eal “al “al al ah ah al al al a ab Ah AL AL AL AL AL ALT ALT AL AL ALT ALT AL ALT ALT ALT ALT AL ALT AL AL AL AL AL AL AL AL AL AL Aa Aa A 
Rekshakeho=2=0<2=2<bab® 222 DOOOOO OWWWOWWWMDo YIN 


>>> rr rr rrr rrrrrrrrrrrrrrrrrrrrrrrr>rr?r>rr rr rrrrrrrr>r>r>,r 
FBO ODO ALE 9 OD NA UNE NAN EWN SO OO NAUES WH OOOO 
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CDDBSL_RSTRTQ. To do this we search for them in the above 
mentioned places in the order in which they were mentioned. 
This order mportant as will be explained below. 


5. Note here that at the time of the call to DUSCONNECT_ERR, we 
aay have been on the middle of hee VERIFICATION. In such 
case the particular volume” would have been marked as 
tnvalid and during fFe-CONNECTION we would not 7. to bring 
the unit onl — Also we would have a set of tive 
-@. no resources u — d fort tent CDRP*a 6*4 on 
the MOUNT VERIFICATION © ugue of the Wve ong gees Pty one 
VERI ION speci CDRP active. lL meshes 
t our Pee OWNEC TION design. the? —2 of 
the MOUN 4J ICATION QUEUE can be ignored. The active 
MOUNT VERIFI ION CORP will be treated normall Its 


IF 
l be 


ean = 


1/0 wil ried and will probably fail and hount 
VERIFICATION will re=-submit it and it will wind up on the 
normal UCB 1/0 wee awaiting the RWAITCNT's going to zero. 
After re-CONNECTION, it will start up normally and everything 
should resume — 


6. First we scan the HIRT wait Q and rpaeve any CDRP's associated 
with the current CDDB. We do this first so that if perchance, 
some of our CDRP's are here, * will not be selected 
inadvertantly when the current HIRT owner is possibly killed. 


: This scan is done by going down the entire HIRT wait Q and 

; removing the ist entry of ours that we find. If in a pass 

; we DO remove an entry , then we go back and scan from the 

: ert of the Q. When we make an entire —* without any hits, 
j e finish. Note that when we remove an y. we decrement 

: the RWAITCNT prior to eh INSERT RSTRIO. to undo the bump 

: Ling LOCK_HIRT 


7. We scan the ROT resource wait Q. Again we scan until we find our 
first entry and after a removal we begin to scan from the 


we gave in ca 


PRAXAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA 
AAR MNAAMN AAA AE BEE EEE EB BWANA AAPOR 
OOD NAUN EWN OOD NAME WN S 


beginning. og Fe 9 clean scan ends the precess. Also we 
must decrement RWAITCNT for each remova 


8. We REMQUE each entry on CDDBSL_CDRPQFL and call INSERT_RSTRTQ 
for each one. 


9. Here we should note that INSERT_RSTRTQ deallocates * ne e⸗ 
owned by a CDRP prior to ty. CORPS Bet t in CDODBSL_RSTR 
Because of this, the only CDRP’s belonging to us thet still 
own RSPID's are the CDRP's which are on other resource wait 
queues. So nore. oe *9 the RDT Look in . 9 entries that 
belong to us. e find one we —— .. cocrensnt its 
RWAITCNT and salt INSERT -RSTRTQ for 24 hat this 
deallocates * resources and as a venue of this could cause 
another of our CDRP's to receive these resources rt 2* 
up to the CDDBSL =CDRPOFL Therefore after a removal her 
we branch back tS step 7 to sefequard aginst this possibility. 
A complete scan of the RDT with ts impli es that we now 
have gathered all our CDRP’s and that we can continue. 


— —5—— 


RIVER = DISK CLASS DRIVER 16-SEP-1984 00:55:34 VAX/VMS Macro v04-00 p 
—W re-CONNECTION hee vC error or failure mit) 7 90:7 3 2:3 YORIVER. SRCIDUDRIVER.MAR;2 ee in 
9. If the two counts above are caval then we have alt CDRP’s on 

CODBSL_RSTRTQFL. No CDRP’s will trickle in so we clear 


CODBSA CDRPTRCKL in cDbB W_ STATUS” 


10. We DISCONNECT the now dead connection and then re-CONNECT to 
establish a new channel to the MSCP server in the controller. 


11. We are now ready to begin gingle erreen guecys fen of CDORPs, until 
exhaust the contents of the CDRPSL_R hed However we 
want to qyerd 8 against the coseinittty. that a particular 
request (i.e. CDRP) may reposted’? hang a controller (i.e. 
cause a recCONNECT ION) rand hereby prevent Se from 
—— * To deal with this we 29 reser given 
request a fixed maximum number of times (MAX_R ». The 
algorithm which resolves this retry logic — relies 
on several data items in the CDDB: 


a) CDDBSL ant TATCONe = the address of the CDRP that is 
currently bein ng processed in single stream mode if 
we are in single stream mode. 


b) CDDBSB_RETRYCNT = the number of remaining retries 
for the current CDRP being processes in single 
stream mode if we are in single stream mode. 


c) copesy SNGLSTRM = bit in CDODBSW_STATUS which tells 
s if'we are in single stream mode. 


The al artis is as follows: If upon sotect ing the first ns 

on CDDBSL_RSTRTQFL, we find CDDBSV_SNGLSTRM clear, we merely 

set it and we can be assurred that this is the first time 

that we are attempting to —* this request in single stream 

mode. This is so 38 the bit being clear implies either 

that this is the first re-CONNECTION since the system came up 

or that the Last re-CONNECTION ran to completion Spore seautng 
e bit clear. In this case we select this first CDRP, 

(DBSB RETRYCNT to the maximum and establish this CDRP as "ine 

current one by storing its address in CDDBSL_RSTRICORP. 


iv B yp ot ned coeesy SNGLSTRM is set upon selecting a CDRP, we 
e the CDRP address to the current va J of 

Copest R TRICDRP. If they are NOT equal, then again this is 

first corey attempt for this COR and we —88 set the 

CDDBSB_RETRYCNT to the maximum and store the C n 

CODBSL-RSTRICDRP. If the CDRP has the same address however, 

we must decrement one on the retry Count and if it is not 

exhausted attempt to process the CDRP again. 


Note this all works even though *9 address of , CDRP 13 no 
necessarily unique. That is, man /9 re Meets n the Life J 
the system way rea" y he same CDRP in virtual space. However, 
onto re-CONNEE c beging, | it deals only with the CDORPs 
on the CODBSL *RSTRTOF never grows until re- | 
CON NECT ION is” a to complet on : nce all new IRPs are 
being backed up. Therefore even though we any run repeated 
e-C NNECTIONS” that do not run to completion but rether each 
causes the connection to go down, through all this the 
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CODBSL_RSTRTQFL is always monotonically decreasing and no 
new CORPs are entered onto it that were not there at the time 
that we began to process the first re-CONNECTION. In a fixed 
ist of CDRPs watch all exist at the same time, the address 

s a unique descriptor. 


12. Note that CODBSM_SNGLSTRM in CDDB$W_STATUS acts as a flag to 
FUNCTION_EXIT so that it can aid in the one at a time re- 
execution of the CDRP's. 


13. For debugging sake, we loop thru all UCB’s and check that their 
UCBSW_RWAITCNT yelues are all equal to 1. 
Also for debugging sake we check that CDDBSL_CDRPQFL is 
empty. 


14. We REMQUE the Ist CDRP on CDDBSL_RSTRTQFL and branch to 
DU_RESTARTIO to begin its execution. 


Inputs: (for DUSRE_SYNCH) 
R3 => CRB 


DUSRE_SYNCH: 


SN ———— 


be tn i Ds i Be — oh ok ok Oh Ab AL Ab dh Ab A Ab Ad Ab dE ee ae te et | 


— 33 10 a dO 7 MOVL CRBSL wth pe lems : R3 => CDDB. 
54 144A DO 764 MOVL CODBSL_PDT(R5) ,R4 3 R4& => PDT. 
26 43 04 91 765 CMPB #MSCPSK_CM_EMULA, = 3; If this is the MSCP server, the right 
7 8 CDDB$B_CNTRLMDL(R3) 3; resynch techn que is DISCONNECT. 
OA 13 7 BEQL RECONN_ COMMON : So, skip the MRESET setup. 
1 AB 7 : BISW #CODBSA_RESYNCH,- 3 Signal that we should reset 
12 A 7 CODBSW_STATUS(R3) : _intelligent controller. 
06 11 4 ? BRB RECONN_ COMMON : Branch around to common code. 
7 § ; Inputs: (for DUSCONNECT_ERR) 
773 ; R3 => COT 
774 ; R4 => PDT 
46 : 
9 DUSCONNECT_ERR: 
53 5C Ad 00 8 MOVL CDTSL_AUXSTRUC(R3),R3 ; R3 => CDODB. 
780 RECONN_COMMON: 
3A 43 B6 781 INCW CODBSW_RSTRTICNT(R3) : Count number times thru here. 
7 § BICW #<CDDBSM_IMPEND - : Signal: no inned tate comnand pending 
7 'CODBSM_INITING = 3 out of initialization 
784 'CODBSM_SNGLSTRM - 3 no single stream in progress 
785 : RSTRIWAIT>,- = ; not waiting to restart CORPs 
12 A3_ 0107 BF 7? $ C Opsy STATUS IRS? 
50 18 A3 00 7? MOVL CODBSL_CRB(R3) ,RO : RO => CRB 
18 a0 01 «SCE , 8 MNEGL #1,CRBSL_DUETIME(RO) : Prevent Timeout Mechanism wakeups. 
08 A8 790 BISW #CODBSA we Couns CTs : Indicate that we are re-connecting 
12 A 44! CODBSW_STATUS(R3) 3; state. 
53 o0000007C BF C3 98 SUBL3 23 CDDB_LINK - : Get vrevious'“ UCB address in R1. 
* —* 50008 C_UCBCHAIN>, - 


mS ae 


51 = 00C4 Oh 
FS 68 Al A 
56 Al 

EF 

F529" 

55 0000 C3 
eit 

55 0194 C3 
F519° 

F516° 

53 = 00F4 C3 
51 
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AC 7 
ne 739 10$: 
AC 7 


§ 


if 


30 


dO 
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; In any 
: Shety associated resource wait count bumped due to nee 


* 16-SEP-1984 00:55:34 
Freee n198e $9:42:06 


MOVL YCBSL_CDDB_LINK (RI), RI ; 
BESS —*8 MSCP_WAITBMP, = : 
UCBSW ; 
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Chain to next UCB. 
jot implies no more UCB’s here. 
f already bum oe re around; 


BevsTS(ri), 168 else indicate T bumped 
INCW UCBSUORWAITCNT (RI) : Prevent new CDRP's from starting up. 
0s: BRB ; Go look for more UCB's. 


Now we are sure that no new CDRP’s will start. 


BSBW DUTUSDISCONNECT_CANCEL 
Deallocate RSPID & message buffer on each of the CDDB perm. IRP/CDRP pairs. 


: Perform disconnect cancel cleanup. 


MOVAB CDDBSA_PRMCDRP(R3), RS ; Get permanent CDRP address. 

BSBW DUTUSDEALLOC_RSP D_MS 3 Deallocate its RSPID & msg. buf. 
MOVAB CDDBSA_DAPCORP(R3)> RS ; Get DAP permanent CORP address. 
BSBW $DUTUSDEALLOC_RSPID_MSG ; Deallocate its RSPID & msg. buf. 


Registers here are: 
R3 => CDDB 
R4 => PDT. 
RS => Permanent CDRP. 


BSBW DUSDISCONNECT_HIRT 
ALL CDRPs belonging to this CDDB have been removed from the HIRT wait queue. 


Locate and prepare for restarting all CDRPs currently waiting for a RSPID. 
Since the class driver allocates a RSPID as the first step in any function, 
CDRPs found now will not be holding any resources and will not be active. 
Since these CORPs hold no resources, their cleanup will not cause any other 
3341 requests to become active. (This fact is not currently used, but it 
might be useful.) 


CDDBSL_CDT(R3), R3 


; Cleanup HIRT wait queue. 


Get CDT address. 
Set SCAN_RSPID_WAIT flag. 


MOVL 


CLRL sR 
SCAN_RSPID_WAIT - 
action = DUTUSRECONN_LOOKUP 


wait aE CONN 
DUTUSRECONN_LOOKUP is in 
DUTUSUBS. 


Remove all CDRPs on the active requests queue. These CDRPs: 
a. hav outstanding requests in the intelligent controller, 
b. suffered allocation failures * to a broken connection, 
c. represent the request during whic ‘insane’’ controller was detected. 
case, these CORPs are not on any resource wait 


h an 

ueue and do not have 
for a resource. 

BSBW 


DUTUSDRAIN_CDDB_CDRPQ ; Cleanup active requests. 


snl” 


Use SCS service to scan RSPID 
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3; Now * the entire Response-id Descriptor Table for any remaining CDRPs 

: 3 belonging to this connection. Presumably these CDRPs are on a resource wait 
: 3 Queue somewhere. In addtion, releasing whatever resources such CDRPs hold 

: § 3; may cause other waiting CDRPs to become active. Therefore, after eyery CDRP 
: ; is located and processed, the active CDRP queue must be scanned again. 


51 06 INCL R1 ; Set SCAN_RDT flag. 
SCAN_RDT - ; Use SCS service to scan RDT. 
; action = DUTUSRECONN_LOOKUP ; DUTUSRECONN_LOOKUP is in 
; DUTUSUBS. 
53 SC 43 00 MOVL COTSL_AUXSTRUC(R3), R3 ; Restore the CDDB address. 


$66 RESTART_FIRST_CORP: 


B68 : 
1 ; We come here either by falling thru from above code or 4 branching here 
; ; from CALL_SEND_MSG_BUF when the Last CDRP has trickled in. 


7 

87 

4h) If here all CDORP’s are in CDDBSL_RSTRTQFL. So no more will trickle. 
$e Clear bit that prevents CACL_SEND_MSG_BUF from doing its job. 

INPUTS: 

R3 => CDDB 
R4 => PDT 


87 
37 
7 


Here we DISCONNECT the old connection. 


MOVAB EROEEA_PARCORPCRD) « R5 
R3,RO 


yin Ag for coming BSBWs. 
= 
MOVL  CORPSL_CDT(RS),R3 


C 

RO CDDB. 

Set R3 => CDT. 

Set no connection active flag. 


“mds 


53 +s AS 
12 AO 0080 8F 
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CD0B 
C 
06 «ES BBCC #CDDBST_RESYNCH,=- : Do NOT branch around if we were called 
1c 12 —* 38 ST us (RO), $ : in order to revsynchront se. 
53 ICA dO MOVL COTSL_PB(R3) RS ; R3 => Path Block for MRESET, etc. 
MRESET PBSB_RSTATION(R3) ,#1 ; Force controller to reset itself, 
MSTART PBSB_RSTATION(RS) 3 And torce controller to restart itself. 
05 RSB : tt this thread. Rely on Port 
; Driver calling error routine as 
; a result of MRESET to accomplish 
2 : DISCONNECT and subsequent logic. 
° DISCONNECT #DISCONNECT_REASON 
9 5 3; Restore R3 => CDDB after disconnect. 
PERMCDRP_TO_CDDB - ; Get CDDB address in R35. 
5 cdrp=R5, cddb=R3 
3s 
907 ; 
; 3 3 Deallocate mapping resources 


6 10 
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Any mapping resources still owned by CDRPs on the eit att queve are 
Soot nocete here. This deallo ocetion ts s delayed nt l after the 
DISCONNECT “ne possible MRESET) to prevent an neane™ controller 
from continuing to Bp via possibly re-allocated mapping 
— , once — — mapp resources are reteece 1/ ° requests 
verry 5 ‘mount ng a disk are released 4 ig hy - J mount 
verificat = can take * reer) : e action. 
ogesvevaleD® ny request w PS$V_MVIRP or directed to te a vdevice with 
ILD oer is FR . The mount verification case 

vious and experience shows that T does not set UCBSV_ VALID 

before issuing the 108 PACKACK. 


— CODBSL_RASTRTIQFL(R3) ; Setup Listhead address. 
PUSHL CDDBSL-RSTRTQFL(RS) ; Setup first CORP address. 


an 


8EDO 
« 9" 
F498" 35 


= 
bad 
vw 


Get next CDRP address. 

Is it the Listhead? 

Hh yes, all deallocations are ore, 
Free MAP resources owned by this CORP 


POPL Re 
CMPL RS, (SP) 
BSBW DUTUSDEALLOC_ALL 


SIN NIO PP AAD AAA AD IAAI 


6 0D PUSHL 5) 3; Push next —* address. 
50 eC AS 00 OVL CORPSL_UCB(RS), RO 3; Get UCB addre 
05 64 AO OB €E1 c CBSV-VALID, = 3 Grench fo post. nthe IRP if this 
sits! STS(ROS, 5$ 3 fort ce not ‘volume vali 
ES CA AS OD €E1 BBC #IRPSU_MVIRP, - 3 is a mount verification IRP? 
CDORPSW"STS(R5), 4 : a. if not an MV IRP. 
50 65 OF REMQUE P 3; Else, remove IRP/CORP from restart 
POST_CDRP_ status=SS$_MEDOFL 3 queue and send it to post processing. 
os 11 BRB 4$ 3; Loop till all restart CDRPs are done. 
8E 05 6$: TSTL (SP)+ : Clear Listhead pointer from stack. 
[ Pegs ponte mappin ,_resoucces whose description is goeres in the 


: Caters nent CDRP. This information was ptoced 5 e by 
: buTUS NSERT _RESTARTQ when it érecovered that t X rmanent CORP 
3 owned mapping resources. In this way. A. A, thread s allowed to 
3 RT permanent CDRP while this 


BREESE SF FAWN NOPINIPONINT IND 


DEAS OONA NE WN OS OOD NDA SOO NA UNE WN SO OD NA — OOO NAN WO 
* . . wa 
bod 


; use the connection is broken. 


X 


oO SeSa 
FFL AI2OAOOOOIOOOFP YD COOWIM > OUIWOVU S&F NWN 
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55 00D0 ¢3 3 4 MOVAB CDDBSA_PRMCDRP(R3S), RS ; Get CDRP in RS. 
F46C' 4 BSBW DUTUSDEALLOC_ALL t Free old HIRT MAP resources. 
5 3: the HIRT CDRP and whose ownership 
34 : 3; has been transferred here. 
F760 30 0894 BSBW DU_REVALIDATE_DISKS ; Start nouns ver {fication for online 
B97 : devices. Starti "9 MV here allows 
B97 3; MV to ertere failover, if that's 
B97 3 possi 
i 
344 : : re-CONNECT - Here we call an internal subroutine which: 
B97 : 1. Makes a connection to the MSCP server in the intelligent 
+44 : controller. 
+44 2. Sends an MSCP command to SET CONTROLLER CHARACTERISTICS. 
397 : 3. Allocates an MSCP buffer and RSPID for our future use in 
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434 ; r 3 connection management. 
ty ; § : Upon return R4& => PDT and RS => CDRP. 
i 2 
— 71° 
55 00D0 3 3 +4 Ht MOVAB CDDBSA_PRMCDORP(RS), RS ; Get pernenent CORP address. 
F6 944 dh BSBW MAKE_CONNECTION 3; Call subroutine to connect. 
: 
DB9F 3975 PERMCDRP_TO_CODB - ; Get CDDB address in R3. 
OB9F 378 care 4 3 cf “feet 1: 
03 28 43 0oFf 650 6546 S597 BBS EPL ; Branch if controller will perform 
Og 378 Ettt TENTRLF LES 10$: bad block re jecenent operations. 
F452" 30 eA id BSBw INIT 3; Else, initialize HIRT. 
t: 
DBAE 359 ? 108: 3; Now it is ) necossery to prepogete all the nneet ion t dependent 
DBAE 359 j : informati —* —36 n J e newly formed connect on ge the * server 
DBAE 39 : to allt s in the primary chain for t At t he same 
DBAE 3984 3 time, every UE ATCNT value is tested to an. epee" it te” consistant 
DBAE 3985 3 with what ettte be x. ected base ugon the various possible reasons 
DBAE 39 § ; which cause it umped. This is merely a debugging exercise. 
DBAE 39 3; Im END_SINGLE sTREAN RWAITCNT with be reduced by one and the wait 
DE ; : 3 3 count —— Tlag will be cleared. 
t: 
55 84 A3 99E OB 9 MOVAB <CODBSL UCBCHAIN - 3; Setup ‘‘previous’’ UCB address. 
NRE 44 . CBSL _tD0B_ LINK>(R3), 
ik 
55 00C4 £3 DO OBE 39 15$: MOVL CBSL_CDDB_LINK(R5), RS ; Link to next UCB. 
ya OBE 994 BEQL 0$ ; Branch if no more UCBs to test. 
F444° ; DBB9 3995 BSBW DUTUSINIT_CONN_UCB 3; Setup connection dep. UCB fields. 
F441" DBBC 338 BSBW DUTUSCHECR_ RWATTCNT 3; Validate the wait count value. 
7 poet 44 BRB 3; Loop through all UCBs. 
ti: 
OBC1 3999 30S: : It is now possible to execute requests on behalf of ony ponding 
DBC1 4 9 mount verification threads. Therefore, the CDDB$V_NOC bit is 
4} ? 1 3; cleared. 
ti: 
12 43. 0080 BF s AA pact 4 j BICW #CDDBSM_NOCONN, CDDBSW_ ay ht 
A3 0 OBC7 4004 MOVL CODBSL CRB(RS) .R : Get CRB address. 
1¢ AO 8 OC7A'CF € —9 4005 MOVAB W*DUSTAR, 3 Establish sornanent timeout routine. 
OBD1 4 — st TOUTROUT(RO) 
51 2A 43 3C OBDI 4 MOVZ2WL CDDBSQ_CNTRLTMO(R3), R1 ; Get controller timeout interval. 
18 AO 00000000'GF 51 C1 O0BDS 4 3 ADDL3 G*EXESGL Aes IM, - ; Use that to set next timeout 
pave 4 9 CRBSL_DUET IME (RO) ; wakeup time. 
els 
tH: 4 19 ; The normal MSCP timeout mechanism is now in effect. Henceforth, 
3 2 \§ ; no fork thread may use the CDODB permanent CDRP as a fork block. 
is 3 
DBDE 4014 3 While the mount verification threads are being handled, also poll 
tt) 2 1? ; for any previously unknown devices handled by this server. 
|) Pe 
DBDE 4 19 ASSUME CDDBSV_DAPBSY GE * 
13. a3 04 88 OBDE 401 BISB  &#<CDDBSM_DAPBSY @ -8>, -; Set DAP CDRP in use flag. 
DBE2 401 CODBSW_ STA ATUS#1(R 
55 54 a3 8 DBE2 4 MOVL CODBSL ~BAPCDRP CRS) RS ; Get DAP CDRP address. 
F417" %0 BEG 4 BSBW Buty SPOLL FOR units > Poll for un 
13 43 (04 OBEY 4 § B1CB 44 te -8>, -: Clear DAP CORP in use flag. 
DBED 4 (pbb w seratuse1 (R3) 
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dD 4 
sD & ¢ 3; At this poiny. there once was a test for an * +s pe CDRPOFL. 
BED 4 § ; Such a test is no longer val a because mount verification processing 
+4 2 3 3 oer . well have CDRPs active on the connection represented by 
: 3 s Code. 
BED 4 
BED 4 ? — 
+H Z 3; Restore normal CRB timeout routine and interval. 
50 18 A3 0 QOBED 4 § MOVL UP DUS TAR CRB(R3), RO 3; Get CRB address. 
1C AO OC7A'CF E a ¢ ¢ MOVAB TOUTR 3 Re-establish normal timeout 
51 2A as 3 BF7 64 § MOVZWL 33 saree —. RI : Establish controller specified 
18 AO O0000000'GF 5 C BFB 4 ADOLS = R11 —* pas tin 3 delta time as normal timeout 
c 4 é 8 CROSL “BUETINE CR ) : interval for timeout mechanism. 
¢ 4040 ; At this point. th reconnect ren thread may need to be suspended A, -¥- ay 
C 4041 ; wish to think of ; as ended) until aguas verification completes for the 
C06 4 4g 3 disks (or UCBs) which had * verification started by DU_REVALIDATE Alæ: 
t 4045 ; This is necessary if and only if C908 BSW_WTUCBCTR is non-zero, indicating 
C04 4044 ; that one or more UCBs are wat ting for mount verification to complete. When 
C04 4045 ; this thread is ‘‘sus ended," * the end mount ver] Fegtion routine will call 
C06 4 8* RESTART sNEXT. CDRP when the count of UCBs wa iting for mount verification to 
C04 4047 ; complete reaches zero. This scheme is described in excruciating detail in 
: " Pr 4 3 the. th *REVALIDATE DISKS preamble. 
SEAS 6B C04 4030 TSTW CODBSW wTycecTA (ns) ; Are any UCBs waiting for mnt. ver.? 
ri C07 4051 BEQL RESTART_NEXT_CDRP :; Branch if no UCBs are waiting. 
12 43 0100 8F AaB OCOD 4 26 BISW #CODBSM-RSTRTIWAIT, 3; Else, signal that connection is 
COF 405 CDDB$W_STATUS(R3) ; waiting to restart CDRPs and 
0S OCOF 4054 3 83 the reconnect thread. 
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RESTART_NEXT_CDRP: 


Here we attempt to initiate che first +o F * cor on the restart queue. 
n order to provers getting caught in an infinite | trying to 
nitiate an operation that the control tor cannot complete for 

one reason or another, we maintain ’ retry count and the address 
of the CORP that we are currently single streaming. 


n the normal case this is an isolated re-CONNECTION and the 

irst CORP on the restart queue is ’ random CORP. We notice this 
by seeing that the address of our first CDRP is not equal to the 
current contents of CDDBSL_RSTRICORP. 


In the other case the connection failed while we were in single 
stream mode and the CDRP which we happened to be process ing $s the 
same CDRP that now heads our restart queve. In this case, before 
initiating the processing of this CDRP, we decrement 1 from the 
retry count and if it remains non-zero, we restart the CDRP 
processing. If the decrementing results in a zero retry count 

then we log the event and effectively abort the CDRP b branching to 
FUNCTION_EXIT with an epproer late error status. FUNCTION_EXIT, due 
to the setting of the CDDBSM_SNGLSTRM bit will then start the 
processing of the next CDRP on the restart queue. 


We can arrive here either by Fett tng cheque from the above code or via 


a branch from FUNCTION_EXIT. In either case we have: 

INPUT: 
R3 => CDDB 
REMQUE @CDDBSL_RSTRTQFL(R3),R5 ; RS => Ist CORP on restart queue. 
BVS END_SINGLE_STREAM : VS implies restart was enpty. 
BBCS #COBB$V_SNGLSTRM 3; Set bit and if clear, this is Ist 

CDDB$W_STATUS(R3),20$_; time here for this CDRP, so branch. 

CMPL RS CDDBSL_RSTRICDRP(R3) ; See if same CDRP as Last time. 
BNEQ 1 3; NEQ implies not the same. 
DECB Spee RE TAVCHT CAS) : If same, decrement 1 from retries. 
BNEQ 0$ : NEQ implies retries remaining. 


eeeereereererteerereeerereeeeet_og this error erereerrererrereerereereeeeres 


MOVL #SS$_CTRLERR,RO : Indicate appropriate error status. 
CLRL R1 ; _And set second part of 1/0 status. 
MOVL CORPSL_UCB(RS) .R3 ; R3 => UCB. 

208 BRW FUNCTION_EXIT 


MOVL R5S,CDDBSL_RSTRICDRP(R3) ; Establish new single stream CDRP. 


MOVE #MAX RETRY,- : Establish fresh retry count. 
ee CDDBSB_RETRYCNT(R3) 
“MOVE «= CDRPSL_UCB(RS) ,R3 : R3 => UCB 


BRW DU_RESTARTIO Restart the CDRP. 


20 


] 
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4 END_SINGLE_ STREAM: | 


Here ve oat to res normal operation and get each yots set Ha 
hag 8 ye 4s sth each UCB i" —*. and call SCs TALLUCB 
t. e qt fects. st 3 88 ng yp 
Ms the IRP's (that! : f ght IRP*s) possible het may have 
—5* up on the UCB input queue wh le we were in sin le stream mode. 


as many —2 all) 


C45 «(411 
C45 «411 
C45 411 
C4 $118 
C45 «(411 
C45 «411 
C45 411 
a 
C45 41 a 0 gn to the next UCB until we exhaust all UCB's connected 
C45 «(41 38 th DDB. 
J | 
12 43 OF AA OC45 41 § BICW #CODBSM_SNGLSTRM, =- ; Clear single streaming CDRPs flag. | 
(49 41 CODBSW_STATUS (R35 
29 AA 3 C49 41 8 MOVZWL CODBSW- ghitiy he RO ; Get current restart count. 
4A C4D 41 MOVAB <CoDBSC LU HAIN = 3 Setup ‘‘previous’’ UCB address. 
BSL LINK> 
C51 41 m= $ bbe. INK>(R3), 
al 
55 00c4 C5 if C51 41 § 10$: MOVL — CDODB_LINK(R5), RS ; Point to next — 
1 £36 4134 BEQL $ 3; Branch if no UCBs to process. 
68 AS 0400 8F AA : : 9 5 BICW — sce va 7 indicete RUAITCNT no longer bumped. 
56 AS 44 ese 41 § DECW UCBSW-RWAITCNT (RS) 3 Unbump wait count. 
F39C° 30 OC61 41 3 SBW putustne ck K_RWAITCNT : Else, check wait co and 
09 BB OC64 41 PUSHR M<RO,R3>~ 3; Save restart cnt. ona cbDB address. 
00000000'GF 16 O0C66 4140 JSB G"SCSSUNSTALLUCB 3; Start up IRPs on UCB. 
8 BA OC6C 4141 POPR & : Restore restart cnt. and CDDB address. 
3 the unstall cause a restart? 
3A AS 0 a ¢ 212 ey ° § CDbBSW_ RSTRTICNT(R3) Did th Ll 
05 cre tbe RSB 3; Else, discontinue this thread. 
12 43 O08 AA ne 4146 30$ BICW #CODBSM_RECONNECT, - : Clear reconnect in progress bit. 
C79 44147 CODBSW_STATUS(R3) 
05 O0C79 4148 RSB : Ta De, Ta De, that's all folks. 


| 
Branch if no restart was caused. 
| 
| 
} 
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DUSTMR = Time out Mechanism Routine. This routine is calle 
por togicatty whenev?r CRBSL_DUETIME 2* ue. At the time of a 
periodic call to DUSTMR the Class Driver is in one of three states 
with respect to the intell ggnt mass storage controller associated 
with the CRB pointed at by R35. 


1. State #1, the “‘normal’’ state for which this routine is optimized, 
is characterized by the following two conditions: 


a) One or more MSCP commands are outstanding to the controller. 
This is determined by having a NON-empty queue of CDRP's 
hanging off the CDDB. 


b) The oldest outstanding command was initiated since the 
previous invocation of DUSTMR and is therefore not very 
old. This is determined by compac es the RSPID of the 
currently oldest command to the RSPID of the oldest request 
at the time of the previous invocation. If they are not 
equal then we are in State #1. 


2. State #2 is characterized by having NO outstanding MSCP commands in 
el ae 8 a This is determined by finding an empty CDRP queue 
n the 7 


3. State #3 is the state where MSCP commands are outstanding and the 
eee — has been outstanding for at least one previous DUSTMR 
nvocation. 


If we determine that we are in state #1, we etapty record the RSPID of the 
currents oldest outstanding MSCP command in CDDBSL_OLDRSPID and we initial- 
ize CDOB 4 OL CROSS to all 1's. We then calculate a new due time, 
gece it in CRBSL_DUETIME and return to our caller, which results 

n scheduling ourselves for the next invocation of DUSTMR. 


States #2 and #3 share some common code. In both cases we will issue an 
IMMEDIATE command to the controller but for diverse reasons. In the case 
of state a it will be an effec ye NOP command that is only issued to 
insure against the controller timing out the host (i.e. us) due to lack of 
activity on our part. In the case of state #3, the IMMEDIATE command will 

be a ‘GET COMMAND STATUS’ for the oldest outstanding MSCP command. 


The common code they share consists of code to appropriate the pre-allocated 
MSCP buffer gg intee at by CDRPSL_MSG_BUF and to pick up the pre-allocated 
RSPID identified by CORPSL_RSPID: B0th these items are located in 
the permanent CORP which i§ appended to the CDDB of this intelligent 
controller. Also at this time a new due time is calculated prior to 

doing the DRIVER_SEND_MSG so that we will be able to time out the 
Ianed ate command. Then the code for these two states diverges for 

a while to prepare distinct MSCP packets, do the SEND_MSG_BUF, 

and in the case of state #5, to do some spect ic processing upon 

receipt of the END PACKET for the IMMEDIATE command. This processin 

consists of insuring that the command status returned in the END PACKET 
ndicates progress be ng made on the oldest outstanding command; and also 

of saving this received command status in the CDDBSL_OLDCMDSTS so as to 
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| 
C7A 4207 ; have it qvatlepte at the next invocation, if this oldest command is still | 
A 4 ; outstand ng. Following this the two Coes poste onverge to recycle the 
A 4 $ received END PACKET for use a the next IMMEDIATE MSCP buffer and to also | 
. 2 ! : recycle the RSPID by bumping its sequence number. 
C7A 4212 ; INPUTS: 
4 ? 1? 3 R3 => CRB of the intelligent disk controller 
A 4215 ; OUTPUTS: 
oh 2 8 3 Registers RO through R5 are all possibly modified. 
A 4218 * 
rh t i tates SETIPL #IPLS$_SCS Aft k t IPL 
3 er wake ower - 
51 10 43 00 7 2 MOVL CREEL ~AUXSTRUC(R3) ,R1 R1 => CDs. 
1 6 § ASSUME CDDBSL_CDRPQFL EQ 0 
51 1 } 1 4226 CMPL (R1),RT 3; If =, then List of CDRP’s is empty 
1 4 46225 BEQL 208 3; EQL means empty List of CDORP's, 
6 4 § 3: which togties we are in State #2. 
50 61 00 6 4 MOVL (R1),RO ; RO => CDRP associated with “‘oldest"’ 
| 2 8 3 Outstanding MSCP command. 
0 a0 01 9 4250 CMPL CDORPSL_RSPID(RO),- ; Compare RSPID of oldest request to 
C Al C 4231 CDDBS$L-OLDRSP1D(A1) ; that of request current at time of 
—E 4 § 3 grey tous invocation of DUSTMR. 
1¢ = «13 4 BEQL 308 3; EQL implies State #3, i.e. current 
2 : 3; oldest has been around for awhile. 
0 a0 D0 & § MOVL CORPSL_RSPID(RO) ,- ; State #1, we have a NEW oldest request 
C Al 4 COOBSL OLDRSPID(R1) ; so record its RSPID in CDDB field. 
30 Al 01 ct ? 3 108 MNEGL #1,CDDBSL_OLDCMDSTS(R1) ; And initialize its associated status. 
7E 2A Al 3 4240 ; MOVZ2WL CODBSW_CNTRLTMO(R1),-(SP); Pickup controller delta. 
BE « C1 4241 ADDL3 (SP)+,= : Calculate delta time for next 
‘GE 4 4g G*EXESGL_ABSTIM,- : periodic invocation of DUSTMR. 
— A3 424 CRBSL_DUET IME (RS) 
05 2 rf: RSB 3: And return to caller. 
4 $8 208: 3: If we are here, there are NO outstand- 
424 3 ing requests n the controller since 
4 $8 3 - P List is empty. 
50 D4 624 CLRL RO 3; R flagged to indicate State #2. 
2C Al 4 & 9 CLRL CDDBSL_OLDRSPID(R1) ; Set to impossible value to prevent 
? ; inadvertent comparison error. 
4 5 30$: 3; Common State #2, State #3 code path. 
4254 3; If here, for sure we will be resuing 
? 5 3: an immediate command to the rere ler. 
4 5 : “GET UNIT STATUS’ (Ng command but 
4 8 ; we are in State #5, it will b 
4 3 C STATUS’ command. for 
— $9 ; either case we begin the common setup. 
4 
54 14 Al 00 4 6 MOVL CODBSL_PDT(R1) ,R4 ; Setup for SEND_MSG_BUF, R4=>PDT. 


Af we are in State #2, it will be a 
| 
| 
| 
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55 0000 4 25 CBO 4 MOVAB copesa 45 RS ; Get CDRP 22 A. coos ) 
E (BS 4 BBCS ac copes? 8 3; Branch if an immed command is NOT 1) 
03 12 Al CB? 4 copesw_S ATUStAT) , 40S; pending. Me. s¢ i t to show th that D 
CBA 4 3; _one W b be pend ntarily 0 
FoD1 31 eA ? BRw DUSRE SYNCH ; Ore 8s 518 lies that an ye ate 4 
3 s not 

CBD 4 3 — — * —6 tineout jatervel. 1] 
8 3; So we goto resynchronization logic. 4 
CBD 4275 40$: 0 
7E 50 7D OCBD 4 a mova RO, -(SP) 3; Save valuable registers. 0 
CCQ 427 jeit SCP ASG ; Initalize buffer for MSCP message. ] 
36 & FP 35 2 f (SP)+, 3; Restore valuable registers. : 
D1 10 OCC6 427 8SBB 10$ 3; Establish due time so as to be able 0 
CC8 427 3 _to timeout Immediate cennen . 0 
50 88 ccsé8 4 ? TSTL 8 3; Test for State #2 or State 0 
1 eee ? BNEQ 50$ 3 NEQ implies State #3. —3* to handle it. 4 
ccc 4 g 3 State #2 spec tfte code. ie D 
CCC 4284 ; Here we —*38 the * packet for the ‘GET UNIT STATUS'’ command for 0 

CCC 4285 ; unit which is an effective NOP command. This is done to 
ccc 4 § 3 maintain minimum activist so that the controller will not time 4 
ccc 4 3 out the host (i.e. us). TE that since the a uffer has been 0 
CCC 4288; cleared above, there is no need to specify unit #0 in the command 0 
CCC 4289 ; buffer. 0 
eee ast ; 
03; 90 CCC 429 MOVB #MSCPSK_OP_GTUNT,=- 3; Move in ‘GET UNIT STATUS" opcode. 1) 
08 A2 cc é 93 MSCPSB_OPCODE (R25 p 
CDO 4295 SEND_MSCP_MSG DRIVER ; Here we call to send the MSCP packet ) 
8 38 3; to the intelligent disk controller. 4 
CDS 4 4 : Return is quper ences here after 0 
CDS 429 ; receipt of the END PACKET correspond- 0 
CD35 4300 : ing to the MSCP NOP sent above. 0 
c03 4301 3 regain control due to a callback ] 
603 4 § : from our own INPUT — — 0 
CdS 4 . 3 ROUTINE. Passed to us at all- 0 
CD3 44304 : back are R2 => — PACKET, ths -s CRB, 0 
c03 44305 : R4& => PDT and R DRP. 0 
CdS 4 $ 3; ALL we vent to do is recycle the 0 
603 4 3; END PACKET for use as our next MSCP 0 
C05 4 8 s pocket and recycle the RSPID. 0 
603 4 : o do this we branch to common code. 0 
35 11 OCDS 4 ? ARB 70$ 0 
CdS 431 0 
eh Hg 508: pat 
CDS 4314 5 State #3 specific code. : * Men | 0 
8 12 ; Here we prepare the MSCP packet for a "GET COMMAND STATUS’ command. p 
50 BC AO 00 8 MOVL CORPS$L_UCB(RO) RO : RO => UCB for oldest outstanding request. | e 

| 

00D4 C BO QOCD9 4 18 MOVW UCBSW_MSCPUNIT(RO),- 3; Setup UNIT field. 0 
04 9 CdD 432 MSCP$O_UNIT(R2) | 0 
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0 90 MOVB #MSCPSK_OP_GTCMD,=- ; Setup OPCODE field. 
08 A MSCPS$B_OPCODE(R25 . 
ec Ai 00 MOVL CDDBSL_OLDRSPID(R1),- ; Setup OUTSTANDING COMMAND REFERENCE 
C A2 MSCPSL_OUT_REF (R2) : field. 
SEND_MSCP_MSG DRIVER ; Here we call to send the MSCP packet 
3; to the intelligent disk controller. 
3; We exper lente return here upon rereiet 
: of the END PACKET for the above ‘'GE 
: COMMAND STATUS’ command. We must make 
; sure that progress has indeed been 
; made on the outstanding command. We 
; therefore compare the Guystand tng 
3; command status returned in the END 
3; PACKET to the prexvove value in CDDB 
: field CDDBSL_0 pees a. 
; Here R2=>END PACKET, R3=>CRB, R4=>PDT 
51 10A3 00 MOVL CRBSL_AUXSTRUC(R3),R1 R1 => CDODB. 
10 A2 01 CMPL MSCPSC_CMD_STS(R2) = Compare received outstanding command 
30 Al CODBSL-OLDCMDSTS (RI) status to previous value. 
OF 41F BLSSU 6608 LSSU implies progress made so branch. 
OA 12 BNEQ 55$ 


If not squat . progress went the 

wrong direction; a sure sign of 

an insane controller. 

If equal to last time, is this the 
multi=host busy somewhere else value? 
Branch if it is busy somewhere else. 
Anything else, bay es no progress 

has been made. So we goto 


10 A2sOFFFFFFFF 8F 601 


03 13 
FD89 31 


CMPL = #=1, MSCPSL_CMD_STS(R2) 


BEQL 60$ 

55$: BRW DUSRE_SYNCH 
re-synchronize with the intelligent 
disk controller and re-issue a 
outstanding commands. 


Sete Se Se Ge Se Ge Se Ge Se Ge Ge Ge Ge Se 
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A2 00 MOVL MSCPSL_CMD_STS(R2) ,- ; Remember this received outstanding 
Al CDDBS$L-OLDTMDSTS (RI) ; command status for next time. 


70$: : States #2 and #3 code paths merge here. 
RECYCH_MSG_BUF 3; Recycle END PACKET. 
RECYCL_RSPTD 3 Likewise the RSPID. 


51 10 A3 +4 MOVL CRBSL_AUXSTRUC(R3),R1 ; R1 => CDDB. 
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02 BICW  #CDDBSM_IMPEND,- : Indicate that immediate command is 
12 Al CDDB$W_STATUS(R1) > no longer pending. 
F2E2° 31 BRWw DUTUSDODAP ; Continue by doing DAP processing. 
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DUSIDR = Class * input Dispatching Routine. This routine is to 

3 the ciass driver what the interrupt Service Routine is to a 
conventional driver. We are called here by the Port Driver 

and we are passed the address of an END PACKET or an ATTENTION 
MESSAGE buffer. By testing a bit in the ENDCODE field of the 
received buffer we determine which of the two has been received. 


For ATTENTION MESSAGES we immediately branch to ATTN_MSG. 


| 
. 
: 
H sti 
3 interest. This is done by testing whether the COMMAND REFE 
3 NUMBER returned in the END PACKET, interpreted as a RSPID 

3 still valid. If not, we merely deallocate the END PACKET 
; return to our caller in the Port Driver. 

; If the END PACKET is still of interest then before dispatching 

3 to the code that originally issued the MSCP command for which we 


ov VCVCVTVC VT VTC ⏑ ⏑⏑⏑⏑⏑⏑ 


have just received the END PACKET, we first remove the 
CDRP associated with the command from the list of active CDRP's 
defined by the Listhead located at CDDBSL_CDRPOFL. 


; INPUTS: 
Ri = Message Length 

Re => END PACKET or ATTENTION MESSAGE BUFFER 
R35 => Connection Data Block 
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400 DUSIDR:: 
08 A2 80 BF 93 4 BITB #MSCPSM_OP_END, = : Is this am ATTENTION MESSAGE? 
4 MSCP$B_OPCODE (R2) 
2 BEQL ATTN_MSG : Branch if its an ATTENTION MESSAGE. 
4 


_~ 
- 


, 
Be 
: 


~~) ~) ~) ~~) - 5 - 4-4-4 4-1-4 -4-4 4-4-1 ⏑ 1-1-1 A 


ret, 3; Process command END MESSAGES 
4409 ° 
4a) : NOTE: The following is a duplication of the code in FIND_RSPID_RDTE. 
441 3; The code is reproduced inline here to avoid two branches and make 
re} 3; this code path as fast as possible. 
50 $0009 900 "st 0 441 MOVL G*SCSS$GL_RDT,RO 3 RO => base of the RDT. 
¢ C 441 MOVZWL + L_ CAD REF (R2) 85 3; Pickup RDTE index from END PACKET. 
FB AO D1 441 CMPL RS, RDTSL_MAXRDIDX(RO) ; Bounds check on index. 
9 18 441 GEQ FINI — TH AESSAGE 3 ege Japt ies out of bounds. 
55 6045 /7E red | MOVAQ (RO)CRSIUR ; RS => RDTE of interest. 
06 AS 81 4420 CMPW RDSW_SEQNUM(RS) ,- : See if RSPID is still valid by com- 
Ad D 4421 MSCPSL_CMD_REF+0(R2) 3; paring the sequence number. 
of 1 D 44 § BNEQ FINISHED WITH WG SSAGE 3 nf implies invalid RSPID. 
3s 6 0 040 44 MOVL ROSL_CDRP(RS) OR : => CDRP. 
$0 24 AS DD ODS bog MOVL CDRPSL_CDT(R5S RO ; RO => COT. | 
0 CA D D47 4425 MOVL —33 RUXSTRUC(RO),RO ; RO => CDDB. 
A 1) D4B 44 § CMPL CODB C_OLDRSPID(ROS ,- 3; See if oldest suistending command has 
6 D4E 44 MSCPSL_CMD_REF (R2) 3; this Command Reference Number. 
} 


Dd 11 
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03 ? D6F 44 BNEQ 208 : If not, branch around. | 
2c A i) D51 44 CLRL CODBSL_OLDRSPID(RO) > Prevent nadyertent timeouts due to 
D54 44 ; reuse of RSPID in error situations. 
D54 4431 20$ ASSUME nSCPaK te LT 32767 
46 * 3] 8 D54 44 § MOVW CORPSW_ENDMSGSIZ(R5); Save Length of incomming packet. 
1C A 2 @ 4 : 8 MOVL RD EDRPSL _MSG_BUF(R5) ; Save address of incomming packet. | 
55 65 OF 4 : 8 5 REMQUE (R5),R5 ; Remove R5=>CDRP from List. 
DSF 44 $ ASSUME CDRP$V_CAND EQ 0 
OF 40 AS EB ODE 4458 BLBS —¢DRPSL_DUTUFLAGS(RS), = ; Has request been canceled? | 
3 so, do cancel completion wor 
B63 4439 0$ If so, d l leti k. | 
: ~ ; Was a diagnostic buffer supplied? 
CA AS 0080 8F 83 3 rend 23$ BITW rb IJ “Breer Bure Wd di ic buff Lied? 
3 Branc agnostic buffer present. 
oc (12 44 reat BNEQ oe B h if di ic buff 
~~ Wwe Ff D6B 4445 258: novo CORPSL_FR3(R R3 ; Restore fork registers, R3 & R4. | 
oc B51 +} rere JMP aCORPSC_FPC( 35 3; Dispatch to issuer of MSCP command 
D 444 3 who will return to our caller. 
D72 4448 
F288" 30 OD72 4449 30S: BSBW DUTUSTEST_CANCEL_DONE =; If this request completes a cancel 
D75 4450 3 operation, cleanup that operation. | 
ec 11 4! $02) BRB 23% 3; Branch back to normal flow. | 
F286" 30 0D77 108 508: BSBW DUTUSDUMP _ENDME SSAGE : If diagnostic buffer, record MSCP 
D7A 4454 3 end message sent in the buffer. 
EF 11 QD7A 4455 BRB 25$ ; Branch back to normal flow. 
p7c at 28 
D7C 445 
Dye 4489 
D7C 4460 ; Process ATTENTION MESSAGES 
Dye 388 
p7c rh ATTN_MSG: 
3 BB OD7C 4464 PUSHR Regs : Save vital vogrsteres 
53 5C_ AS) DO OD7E 4465 MOVL CDTS$L iv — R3 ; Get CDDB addre 
AC‘ AF oF D £288 PUSHAB B*EXIT. ATIN N_MSG 3; Make DISPATCH. took like a BSBx. 
D 446 DISPATC 3; Dispatch to attention message 
D rete MSCPSB ~0P COD (R2) . specific processing: $s 
085 44 type=B. fi x=MSCPSK $$ 
D85 4470 <AVATN, Nit AVAILABLE ATEN, - | $$ 
D 4471 <DUPUN, DUPLICATE_UNIT-ATTN>, = $$ 
4 8 —X ACCESS_PATH_ATTN>, - ft 
D91 4474 INV_ATIN_MSG: 3 Process invalid ATTENTION MESSAGE. $1 
Be 5 44) 4475 TL + :; Pop “‘return’’ address. $1 
50 A C 009 ret MOV TUL ocnese INVATT : povel ie attention message type. $1 
00000000'GF 16 0096 447 JSB GTERL $C nee DmseP > Log incorrect DISK MSCP message. | $1 
1E BA OQOD9C 447 POPR a R2,R3,R4> 3; Restore vital registers $1 
DIF 447 DEALLOC ASG REG * i Deallocate ATTN ASG buffer. | $1 
3 5 A d DAl 44 ? MOVL “Cots fone BURBS RS" R3 ; Get CDDB again. $1 
18 A DAS 44 MOVL copasc cna : From that get the CRB address. $1 
FCE on 8 BRi DUSRE_SYN ; Re-synchronize with controller. 3! 
DAC 4484 EXIT_ATTN_MSG: $1 


ss BR —* —* ir — Rou Boat 1 9 3 


; Restore vital registers. 


; Deallocate ATTN MSG buffer. 
; Return to SCS caller. 


1€ #*M<R1,R2,R3,R4> 
4 @ FINISHED, wit MESSAGE: 
bat LLOC_MSG _BUF aREG 
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DB2 44 -SBTTL Attention Message everesetng 
+4 a -SBTTL = Process Unit Available Attention Message 
DBZ 4495 ;++ 
DB2 44 : : 
+ 8 3; Functional Description: 
DB 4499 : —* routine processes unit available attention messages. If the 
0B ret 3 available unit is already known in the I/0 database, no action is 
DB2 4499 ; taken. If the available unit represents a second path to an already 
DB2 4 : known unit, the 1/0 database is altered to show the alternate path 
DB2 4 3 ee ty. If the available unit represents a totally new device, 
5 2 ¢ : t is added to the 1/0 database. 
+4 2 : : Inputs: 
DB2 4 $ ; R1 attention message size 
DB2 4 3 Re attention message address 
DB2 4 ; 3 R CODB address 
DB2 4 3 
+ 2 9 3; Outputs: 
DB2 4 19 : RO = RS destroyed 
3 $37 3 ALL other registers preserved 
DB 34 
bB $316 UNIT_AVAILABLE_ATTN: 

0S €0 908 $218 BBS #CODBSV_POLLING, - : Is a pet for units in progress? 
pB? 451 CDDBSW_STATUS(RS), 90$ : Branch if poll for units active. 

F246' 30 p87 $359 BSBW DUTUSNEW_UNIT 3 Process possible new unit. 
0 DBA 4521 90$: RSB 
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- Process Duplicate Unit Attention Messa $79 e- 138 9 32:38 DRIVER. SRCIJDUDRIVER.MAR; 2 ad 
+94 é 3 -SBTTL = Process Duplicate Unit Attention Message 
ots i 
pBB é 5 : Functional Description: 
DBB 4 § : ae routine processes duet icave unit attention messages. 
pBB 4 , 3 Notification of the condition is sent to the operator's console and 
DBB 4 3 an entry is made in the error log: the unit described in the 
DBB 4 5 : message cannot be found, an invalid MSCP message error log entry is 
oan : 3 generated. 
+4 2 ¢ : Inputs: 
DBB 4 $ : R1 attention message size 
DBB 4 3 3 Re attention message address 
—*3 R CDDB address 
bBB ‘ a} : Outputs: 
DpBB 4 8 RO - RS destroyed 
PBB 4544 ; ALL other registers preserved 
gap eg 
+24 434? ENABLE LSB 
—8 338 DUPLICATE_UNIT_ATIN: 
3 DBB 4 3 BSBW D TUS Onur ue : Locate UCB for this message. 
i) 44] 4 § MOVL RO, R ; Setup UCB address. 
1 pci 4 9 : If no UCB found, ignore message. 
; pc3 8 4 BSBW DUTUSSEND_DUPLICATE_UNIT; Send message to operator. 
t +3 $322 MOVZWL #EMBSC_DUPUN, RO 3; Setup duplicate unit error log code. 
pcg 433 LOG_ATTENTION_MESSAGE : 
3 pc9 $338 JSB G*ERLSLOGME SSAGE : Error log attention message 
0 DCF 4559 90S: § 3 and return to caller. 
ao tees 


-DISABLE LSB 
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RIVER = DISK CLASS DRIVER “SEP=1984 00:55:34 VAX/VMS Macro V04-00 Page 98 | 
—WR - Process Access Path Attention Message $ — 99:92:86 DRIVER. SRCIJDUDRIVER.MAR; 2 wes An 
+4 2 3 -SBTTL = Process Access Path Attention Message | 
a3 ne | 
pop 4 5 Functional Description: | 
DDO 4 : ; This routine processes access path attention messages. If the access 
DDO 4 9 ; path represents a second path to an already known unit, the 1/0 
DDO 4571 ; database is altered to show the alternate path availabil ty. and an 
DDO 4572 ; entey s made in the error log indicating receipt of the pessege. 
DDO 4575 ; If the unit described in the message cannot be found, an invalid MSCP 
dD 4 , : message error log entry is generated. 
* lnouts: 
DD0 4578 ; R1 attention message size 
DDO 4579 ; Re attention message address 
+ ? ? 3 a CDDB address 
+ 43 § ; Outputs: 
DDO 4584 ; RO - RS destroyed 
DDO 4585 ; ALL other registers preserved 
—IF 
+ $2 ACCESS_PATH_ATTN: 
F22D° 30 ODd0 45 BSBW DUTUSSETUP_DUAL_PATH ; Process possible dual path unit. 
a me DDS 4591 MOVL RO, R35 ; Get UCB address. | 
06 1 DD6 4 38 BEQL 90$ ; no UCB found, ignore the message. 
DD8 459 RSB : Return w/o Logging message, but 
DDI 4594 : leave message logging code in place 
DD9 4595 ; just in case its needed. 
50 08 9A ODD9 4 38 MOVZBL #EMBSC_ACPTH, RO ; Setup ERLSLOGMESSAGE code. 
EB 11 QODDC 459 RB LOG_ATTENTION_MESSAGE ; Join common log message path. 
05 ODDE 4598 90$: RSB 3; If no UCB, exit. 


1 11 


MOVL R35, R 
FIND _RSPID_RDTE Lookup RD RD TE for RSPID. 
MO R35, R D 
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—W —X = Data Gram Dispatch Routine —2 33 99: Fi +3 DRIVER. SRCIDUDRIVER.MAR; 2 ae 
444 ? ; -SBTTL DUSDGDR - Data Gram Dispatch Routine 
444 Z ; Inputs: 
DDDF 4 4 : R1 = Length of datagram 
444 2 3 12 => der egres 
dDDF 4 : Ra => BOT 
por 2 DUSDGDR: 
50 SCA 4 DDDF 461 MOVL COTS, AUXSTRUC(R3),RO ; RO => CDDB 
55 3 3 ODE 461 MOVL 3; Save 3 to CDT. 
1 —— 461 CMPB pas DISK_TRN,- 3 Look inte error oq 8 message. 
08 A DEB 4614 MSLG$B_FORMAT (R25 : See if disk transter error. 
8 13 ODEA 4615 BEQL : EQL means yes. 
91 QDEC 4 1 CMPB 3 3; See if SDI error. 
08 A DDE 461 Has K PSRAAT (R2) 
8 13 ODF 84 BEQL 5$ : EQL means yes. 
08 A2 91 ODF2 461 CMPB #MSLGSK_SML_DSK 3: See if disk transfer error. 
1DF6 4620 WSL GSB_ FORMAT(RS) 
2c 12 *8 8 i BNEQ : NEQ means unit # field maybe invalid. 
ODFB 4623 S$: ; If here, then UNIT # field valid. 
50 0000007C &F C3 ODF 4624 SUBL3 — CDDB_LINK - 6et ‘'previous’’ UCB address in R3. 
DFF 4625 coDgsC UCBCHAIN>, - 
53 +h 8 — IR 
53 00C4 ß 09 £0 8 108: * SL_CDDB_LINK(R3), R3 ; —— to pent ucB. 
3 more 
00D4 3 81 34 46350 CMPW UCBSW_MSCPUNIT(R3),- ; See if qatagran (error log packet) 
04 Ae €0B 4631 mscPse. UNIT(R2) 3; for this 
F 12 EOF 8 158 BNEQ 3: If not, er abck to try next unit. 
50 01 3C OEOF 4634  #$MOVZWL #EMBSC_DM,RO : Put type of message into RO. 
00000000'GF 16 eit rf 5 208 JSB G*ERL $SCOGME SSAGE 3 And call to * —— 
— 3215 $3 £18 46 ; . MOVL 3 ~ store R3 => 
52 0088 C4 C2 OF1B 46 8 SUBL Pots _DGOVRHD(R4),R2 3; R2 => SCS — * datagram. 
E p 463 SUEUE _0G_BUF 3 — datagram buffer. 
05 : Z 2979 RSB 3; Return to port. 
53 2 09 E24 4642 30S: MOVL RCPS CRD _REF (RZ) AS pictus — * * PACKET. 
1 E27 464 BEQL EQL "registe 
25 BB E29 464 PUSHR #*M<R1,R5> pove ee sters.. 
55 0 ee ite 
53 5 00 OE f 466) VL - Cop TE address 
BA QOE3S7 4 $8 POPR #*A<R1,R5> Res ore, saved registers. 
09 E9 OE39 464 BLBC RO,4 Oranc® if lookup grrr. 
53 63 00 OE3C 46 p MOVL  RDS$L_CDRP(R3) ,R3 Get CORP address 
53 BC AS DO OESF 46 MOVL FDRPSL_ UCB( cass R3 Get UCB address in RS tit any). 
CA 1 2 ? 4 BNEQ If we get a UCB, use it. 
53 56 as 0 O0€&45 4654 408: —83* cores Muss MaRS TONe 185) R3 : R3 => CODB. 
08 Be E49 4655 MOVZWL #EM Boe NOU T_DG,RO 3 Indicate type of message. 
0 00' GF 6 OE4C 4656 JSB G*ERLSCOG_ DAStP : Call to log message. 
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208 : Rejoin code. 
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~SBTTL INVALID STS 


We come here if we get an invalid MSCP status. We log the MSCP message 
; and then RE-SYNCH the controller. 


— 
2 000 
Se Ge Ge Ge Ge Ge Ge Ge Ge Sete 

+ 


4 & 
4 & 
4 & 
4 & 
te 
4 4 ; Inputs: 
4 4 : Re => MSCP packet 
4 4 R35 => UCB 
; 4 4 R4 => PDT 
4 4 RS => CORP 
; 2 2 CORPSL_ENDMSGSIZ(R5) => Length of MSCP packet with invalid status 
E54 467 
3 2 4678 INVALID STS: 
50 609 HS E $ 8 MOVZWL #EMBSC_INVSTS, RO : Indicate type of record to Log. 
51 46 A} E57 4 i: MOVZWL CORPS$W ENDMSGSIZ(R5), RI: Pick Length of faulty packet. 
5 C D E ; 467 VL UCBSL_CODB(R3), R3 3 Get CDDB address for logging error. 
+g 16 0&6 4678 JSB GERL SLOG pmsce : Log disk MSCP error. 
F197" 3 8 467 BSBW DUTUSINSERT_RESTARTQ 3; Queue CDRP for retry. 
53 18 A3 g E69 4680 MOVL CODBSL_CRB(R3),R3 ; RS => CRB for re-SYNCH. 
FCIE 8 8 BRW DUSRE_SYNCH ; Zap controller. 
E70 46 
E70 4684 
E70 4685 
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$$$ = R 04 CODBSL_0DB = 
SeDAse = EODBSL _OLDCADSTS = § 
SSBEGINSS = DDBSL_OLORSPID = ¢ 
$$01SPL ⸗ CODBSL_POr s 4 
SSGENSW s CODBSL_PRMUCB ¢ 
$S$HIGH s CODBSL_RSTRICORP = 4 
SSLIMIT s CODBSL RS TRTOEL s ¢ 
$$LOW = CODBSL-SAVED_P 2 44 
SSMEDIASS = CODBSL_UCBCHAIN s 4 
SSANSW = CODBSM_DAPBSY = 4 
SSX = CODBSM_IMPEND = 
SSNS ⸗ CODBSA_INI TING s 4 
$$oP s CDDBSM_NOCONN = 
$$S$$ = CODBSM_QUORLOST = 
SSTEMPSS = CODBSM_RECONNECT = 
ACCESS_PATH_ATIN B 5 CODBSM_RESYNCH s 1 
A eerereee =X 6565 CODBSM_RSTRIWAIT = 100 
ACPSDEACCESS eeeeeeee =X = 05 CODBSM_SNGLSTRM s 001 
ACPSMOD IF Y eereneee =X = 05 CODB$Q_CNTRLID = ° 0 
ACPSMOUNT eterenee § x 5 CODBSV_ALCLS_ SET = 6 
ACPSREADBLK eeeeeeee =X = 05 CODBSV_DAPBS? = 6 A 
ACPSWRITEBLK »2222222 =X = 05 CODBSV= IMPEND s 1 
AF TER_MAP 000911 R 05 CODBSV_NOCONN s 007 
ALLOC DELTA = 000 8 1 CODB$V_POLL ING s 005 
T$_ = 000 $ 5 CODB$V—QUORLOST 2 909 
ATE_MSCPCODE 0 CODBSV_RESYNCH s 004 
ATE_OFFSET 00000 CODBSV_RSTRIWAIT = 00 
ATE-SSC 0 CODBSV_SNGLST s 0 
TTA p7C R 5 CODBSW_CNTRLFLGS = 0 
AVAICABLE_ABORT 5 50 R 5 CODBSW-CNTRLT s 9 A 
AVAILABLE-CTRLERR 2 R 5 CODBSW_RSTRICNT ⸗ A 
AVAILABLE _DRVERR 9 9 R 5 CODBSW_STATU z Ole 
AVAILABLE -MEDOFL 50 R 5 CODBSW_WTUCBCTR 2 5E 
AVAILABLE-SSSC ° 50 R 5 CORP$B-CARCON z FOC 
AVAILABLE” SUCC 50 R 5 CORP$B_CD_TYPE z 00A 
AVAIL_IVCAD 00848 R 5 CORPSB_EFR 2 FC2 
AVAIL IVCMD_END 00084E R 5 CORPSB_F IPL ⸗ 008 
BUG BISKCLRSS 22222222 =X 05 CORPS$B_IRP_TYPE s AA 
CODBSA_2PFKB 174 CORP$B_PR s C3 
CODBSA_DAPCORP CORPSB_ = 
CODBSA_DAPIRP CORPSL_ABCNT s E 
CODBSA_PRMCORP CORPSL_ARG s F 
CODBSA_PRMIRP CORPSL-AST z 8 
CODBSE_CNTRLAD s CORPSL_ASTPRM z B4 
CODBSB-RETRYCN s CORPSL_BCNT z D2 
CODB$B-SYSTEMID s CORPSL_COT = 24 
COOBSK_LENGT = CORPSL_DIAGBUF = 3 
CODBSL-ALLOCLS s CORPSL-DUTUFLAGS z 4 
CODBSL_CANCL CORPSL EXTEND z F4 
CODBSL-CANCLOFL CORP aia = 9 
CODBSL-CORPOBL s CORPSL-FR s 
CODBSL-CORPOFL ⸗ CORPS$L- 10QBL 2 A 
CODBSL- CDT CORPSL-IOQFL = AO 
CDDBSL-CRB = CORPSL-10SB = C4 
CODB SL _DAPCORP s CORPSL-10ST1 s 08 
CODBSL“DAPCDT CORPSL-10ST2 = bf 
CODB$L-DAPUCB CORPS$L~JNL_SEQNO = E 
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DUDRIVER = DISK CLASS DRIVER 16-SEP-1984 00:55: x/ 
Symbol table mitt 90:3 3 RI 
DUSIDR Q0000D1E RG DYNSC_DPT s 5 
INIT_HWIRT eeeeeees =X DYN C=ORB 2 4 
DUSLOCK“HIRT teveneee =X DYNSC_UC = 1 
DUSMOUNTVER 00000376 R MBSC_ACPTH = 
DUSONL INE COMPLETE eereteee § x MBSC-DM = 
puseer ee E_LBN eeeceree § Xx MBSC_DUPUN = 6 
YNCA A 3 & —Rabn = A 
DUSSHADOW_PACKACK_FDT & EMBSC™ NVSTS ⸗ 9 
DUSTMR C7A R EMBSC_NOUNIT_DG = 
OCK_HIRT —“ =X 05 END PACKACK 0 6B¢ R 
DUPLICATE UNIT_ATIN 00000088 R ND_SINGLE_ STREAM 0000C45 R 
puT ANC eeeeeene x RLSLOGHE SSAGE geeeeree 
DUTUSCHECK RWAITCNT eeeeenee 8 X RLSLOGSTATUS seeeerer 
DUTUSCREATE CDDB eeereere xX ERLSLOG DMSCP eeereere 
DUTUSDEALLOC_ALL eeeeenee 8X EXESF INTSHIOC eennenee 
DUTUSDEALLOC_RSPID_MSG eeeeeeee § Xx EXESFORK eeeneene 
DUTUSD I SCONNECT_CARCEL eeereree =X EXESGL_ABSTIM aeenerer 
T AP eeeeeeee = § x 5 EXESGQ SYSTIME eeeerene 
DUTUSDRAIN_CDDB_CORPQ eeenenee Xx 5 EXESINSI0Q eeeerere 
DUTUSDUMP _ eeeceeee § 5 EXESLCLOSKVALID aeeenere 
DUTUSOUMP_ENDME SSAGE eeneenee xX 05 EXESMOUNTVER aeeeeees 
‘ITUSE eeneeeee 8 § x 4 EXESQIODRVPKT setenene 
JUTUSF AILOVER_UCB eeneeeee 8 Xx 5 EXESSENSEMODE eenereee 
TY eeneeeee 4 5 EXESSETCHAR Reerener 
geeeenee x 5 EXESZEROPARM geeeeene 
eeeneeee 8 Xx 5 EXIT_ATTN_MSG OOOOODAC 
eeeenere § Xx 5 FINISHED Q1TH_MESSAGE OODA 
aeeeenee = YX 8 05 FKBSK_LERGTH 0 01 
eeeneeee § x 9 FUNCTAB_LEN 00000A 
eeeeneee § x 5 FUNCTION EXIT 000095 
eeneeeee§ YX 05 HOST_ TIMEOUT 000001 
eeeeeree XxX 05 HSTIMEQUT_ARRAY 000019 
00000000 INISBRK gereenee 
eerereee x 93 INITIAL CREDIT = 8888888 
eeeteeee § 5 INITIAL _DG_COUNT = 00000002 
eeeeeeee 8 X 8 INIT_IMMED DELTA = Be bn) pg 
eeeeenee 8 6X 5 INIT" TIMEOOT 0000176 R 
eeeeeene § xX 5 INVACID STS 868 
2244i 05 INV_ATTR_MSG 0D91 R 
eeeeecee § x 5 1OSA_DATACHECK = 8 40 . 
etereeee Xx 5 1OSM_EXPRESS ⸗ 
222i55 1OSM=F CODE = F 
eeeeeeee § 5 1OSM_FORCERR = 1 8 
eeeneeee x OSM~INHRETRY ⸗ 
eeneneee x O$S FCODE = 6 
eeneeeee § x : 1OSVDATACHECK = 5 
3R 10 V_EXPRESS = 
AR 5 1oav~r COO a 
D&S R 5 1OSV_FORCERR = 
R 5 bs sl eres Ma = F 
f ige¥ HADOW = 
R 10$_ACCESS z 
fe 19 “ACPCONTROL ⸗ 
5 OS"AVAILABLE = 
se 10$_CREATE = 
= 10$_DEACCESS = 4 
= 10$_DELETE = 5 
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see TEMPLATE _ORB_01 
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PSECT No. Attributes 
0.) 00 ¢ OO.) NOPIC USR 
302-3 1¢ 1.) NOPIC USR 
258.) § ( 33 NOPIC  USR 
$8} ( -) NOPIC USR 
155.) 04 ¢ 4.) NOPIC  USR 
696.) 05 ( 5.) NOPIC USR 
4.) $ ( 93 NOPIC USR 
175.) ( -) NOPIC  USR 
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308043"byre sey yo Was 7009 peers. 
bytes 92 page P of vir memory were used to pur set fre intermediate soge; 
re were pages a syabet table *2 al 241 d to hold 3409 non-local and local symbols. 
5 source is nes were read in Pass 1, produc "a. object records in Pass 2. 
3 pages of virtual memory were used to define 88 macros. 
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Macro Library name Macros defined 


=$3358bu UAB: ESV 083 90) 20uT 18. -MLB;1 33 


VS TeistARcet. MLB; 2 
ToTAce (all Libraries) 79 


3909 GETS were required to define 79 macros. 
There were no errors, warnings or information messages. 
MACRO/L1S=L1S$:DUDRIVER/OBJ=0BJ$:DUDRIVER MSRC$:DUDRIVER/UPDATE=(ENHS:DUDRIVER) +EXECML$/LIB+L1B$:DUTULIB/LIB 
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